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PREFACE 


This  volume  is  a documentation  of  the  computer  program  of 
the  revised  OPTSA  II  model.  The  program  is  operational  on  the 
CDC  6400  at  IDA.  It  occupies  about  66,000  octal  (equivalent  to 
28,000  decimal)  60-bit  words  of  core  and  requires  50  seconds  to 
compile.  It  contains  about  2,500  FORTRAN  statements. 

The  game  matrices  are  dimensioned  to  hold  up  to  11  pure 
strategies  per  period  per  side.  Wars  of  up  to  90  days  can  be 
played,  with  one,  two,  or  three  decision  periods. 


This  volume  contains  guides  to  data-deck  preparation,  vari- 
able definitions,  a program  listing,  sample  output,  and  a guide 
to  the  various  output  options  available. 


v 


Chapter  I 
PROGRAM  FEATURES 


A.  PROGRAM  SEGMENTS  OF  OPTSA 

There  are  a main  program  and  eight  subroutines: 


MAIN 

Main  program;  calls  CLRCOM,  READ,  and  appropriate  "SIMPL" 
routine,  depending  on  number  of  periods  in  war  (if  one  period, 
SIMPL3(ljl)  is  called;  if  two  periods,  SIMPL2(1,1);  if  three 
periods,  SIMPLE). 

CLRCOM(  ) 

Initializes  certain  variables  in  blank  COMMON  to  zero. 

READ 

Reads  and  prints  input  variables. 

SIMPL1 

First-stage  game-solving  routine. 

SIMPL2(IB,IR) 

Second-stage  game-solving  routine,  when  first-period  strategy 
pair  IB,IR  is  played. 

SIMPL3(JB,JR) 

Third-stage  game-solving  routine,  when  second-period  strategy 
pair  JB,JR  is  played. 

CAM(IDL,IDU) 

Performs  assessment  between  days  IDL  and  IDU. 

CWX(  ) 

Performs  interpolations  for  use  in  CAM. 

CAMCLR 

Initializes  certain  variables  in  CAM  to  zero. 

B.  ARITHMETIC  STATEMENT  FUNCTIONS 

In  the  area  fire-attack  mode  (mode  4),  Newton's  method  is 
sometimes  used  to  find  the  optimal  proportion  Q of  ABA  passes 
to  attack  sheltered  aircraft.  The  use  of  Newton's  method 
requires  two  functions  corresponding  to  the  first  and  second 
derivatives  of  the  function  to  be  optimized.  In  the  program, 
these  are  defined  as  the  arithmetic  statement  functions 
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Fl4 (Q)  = A2-A3-AL0G(A4)#A4##Q-A5*AL0G(A6)#A6##Q 


and 


F24(Q)  = -A3* (AL0G(A4)##2)#A4##Q-A5*(AL0G(A6)**2)*A6**Q  , 
where  ALOG  is  the  natural  logarithm. 

These  function  definitions  are  placed  at  the  beginning  of 
subroutine  CAM.  The  quantities  A2,  A3,  etc.,  are  computed  in 
the  program.  The  same  functions  are  used  for  the  Blue  and  the 
Red  airbases. 


C.  COMMON  BLOCKS 


Blank  COMMON  (located  in  all  routines  except  CVFX  and 
CAMCLR)  contains  all  the  input  variables,  plus  the  following 
variables  (defined  in  Chapter  III  of  this  volume,  below): 


U(ll,ll) , SUB (11, 11, 11) ,SUR(11,11,11) 
V(ll,ll) ,SVB(11,11,11) ,SVR(11,11,11) 
W(ll,ll) ,SWB(11),SWR(11) , VALUE 


Payoff  matrices, 
game  values, 
optimal  strategies 


SHELB (90), SHELR (90) 
BSHELK(90) ,RSHELK(90) 
BDI (3,90), RDI (3,90) 
BDD( 3,90) ,RDD( 3,90) 
BGF (90), RGF (90) 

BAI (4,90), RAI (4,90) 
BAD (4, 90), RAD (4, 90) 
BAF (90), RAF (90) 

BF(90) ,RF(90) 

FEBA (90 ) 

CBF (90), CRF (90) 
CBAF(90),CRAF(90) 

IDL1 , IDUi , IDU2 , IDU3 


Used  in  assessment  routine 


Lower  and  upper  days  of  decision 
periods 


Common  block  CAMVAR,  which  appears  in  subroutines  CAM  and  CAMCLR 


contains  variables  that  hold  intermediate  results  on  each  day  of 


the  assessment  routine: 
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SORRB (2,3), SORRR (2,3) 

BA  ( 2 , 3 ) j RA  ( 2 , 3 ) , BS  ( 2 , 3 ) 3 RS  ( 2 , 3 ) 

BAL (2,3), RAL (2,3),  BSL (2,3),  RSL (2,3) 

BAKAA (2,3)j  RAKAA (2,3),  BSKAA (2,3), RSKAA (2,3) 

VBIDRA ( 2 ) ,VBADRI ( 4 ) , VRIDBA ( 2 ) , VRADBI ( 4 ) 

BSENG (2,2) ,RSENG (2,2) 

BPENG(2) SRPENG(2) 

BSFB (2,3) , BAFB (2,3) ,RSFB( 2,3) ,RAFB (2,3) 

BAVUL(4) ,RAVUL(4) ,PBABA(2) ,PRABA(2) 

BPOPS(4) ,BPOPNS(4) jRPOPS (4) ,RP0PNS ( 4 ) 

VBDRS , VBDRNS , VBKRS , VBKRNS 
VRDBS ,VRDBNS , VRKBS , VRKBNS 

D.  PREMATURE  STOPS 

In  addition  to  the  normal  ending,  there  are  three  ways  the 
program  could  stop: 

(1)  A negative  payoff  entry  is  generated  whose  absolute 
value  is  greater  than  variable  GVA  (the  input  amount 
added  to  each  payoff  entry  to  make  it  positive  for 
game  solution).  The  absolute  value  is  printed  out, 
and  termination  occurs.  (The  old  version  of  OPTSA  did 
not  have  this  feature;  infinite  loops  occurred  when 
GVA  was  too  small.)  The  testing  is  done  in  subroutine 
SIMPL3 . 

(2)  Red  attack  mode  4 (area  fire)  is  used  at  the  Blue  air- 
base, and  Newton's  method  is  used  to  find  the  optimal 
proportion  of  Red  aircraft  to  attack  Blue  shelters. 

If,  after  100  iterations  of  Newton's  method,  successive 
approximations  are  still  more  than  EPS4  (input)  amount 
apart,  the  program  will  stop.  However,  since  Newton's 
method  will  rarely  be  needed  for  the  optimization 
(and,  if  needed,  it  should  converge  very  quickly),  this 
premature  stop  will  probably  never  occur. 

(3)  Similar  to  (2)  above,  but  with  Blue  at  attack  mode  4 at 
the  Red  airbase. 

For  diagnostic  purposes,  these  stops  are  labeled  223,  445,  and 
446,  respectively. 


# 
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Chapter  II 
INPUT 

A.  DEFINITIONS  OF  INPUT  VARIABLES 

The  variables  are  listed  in  the  order  in  which  they  are  read 
(which  corresponds  closely  to  the  order  in  which  they  are  used  in 
the  program).  They  are  listed  alphabetically  in  Appendix  A.  The 
following  input  variables  are  used  only  in  the  SIMPL  routines: 

IPRV 

IPRU 

IRO  j JRO  j KRO 

NB,NR 

PB  ( , ) 

PR(  , ) 

GVA 

The  following  input  variables  are  used  only  in  subroutine 
SIMPL3  (the  final-stage  game): 

MOE  j MOET 

BCWGT , BSWGT ( 3 ) 5 BQWGT ( 2 ) ) Used  Qnly  fQr  MQEs  „ and  5 
RCWGT , RSWGT ( 3 ) , RQWGT ( 2 ) ) 

The  following  input  variables  are  used  both  in  subroutine  CAM 
(the  assessment  routine)  and  other  routines: 

PROPB ( , ) 

PROPR ( , ) 

IDL2 , IDL3 

NID 

NPD 
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All  the  rest  of  the  input  variables  are  used  exclusively  in 

subroutine  CAM 

An  asterisk  indicates  a discussion  of  the 

specified  variable(s)  in  Section  B of  this  chapter  (below).  A 

table  of  lower 

and  upper  limits  on  variables  appears  in  Section  C. 

A 

Variable  Name, 
Dimension  Limits, 
and  Indices1 

i 

Definition 

w 

NKBD 

Number  of  kinds  of  Blue  divisions  (up  to  3). 

% 

NKRD 

Number  of  kinds  of  Red  divisions  (up  to  3). 

*NKBA 

Number  of  kinds  of  Blue  aircraft. 

*NKRA 

Number  of  kinds  of  Red  aircraft. 

NID 

Number  of  days  in  war  (up  to  90). 

#NPD 

Number  of  periods  in  war  (up  to  3 ) . 

#IDL2 

First  day  of  second  period  (if  two  periods,  first  day  of 
first  period — i.e.,  day  1). 

* 

*IDL3 

First  day  of  third  period  (if  two  periods,  first  day  of 
second  period). 

*IR0 

First  Red  allocation  to  use  in  solving  first-period  games 
(must  not  exceed  NR) . 

it. 

*JR0 

First  Red  allocation  to  use  in  solving  second-period 
games  (must  not  exceed  NR) . 

*KR0 

First  Red  allocation  to  use  in  solving  third-period  games 
(must  not  exceed  NR) . 

• 

*IPRV 

Indicator  for  printing  second-period  game  results: 
0 - do  not  print;  1 - print. 

*IPRU 

Indicator  for  printing  third-period  game  results. 

• 

IREPLB 

Indicator  for  casualty  replacement  of  Blue  ground  forces: 

0 - no  Blue  ground  casualties  are  to  be  replaced; 

1 - all  Blue  ground  casualties  are  to  be  replaced. 

IREPLR 

Indicator  for  casualty  replacement  of  Red  ground  forces. 

indexing  variables  TY,  TYB,  and  TYR  are  declared  to  be  integer  in  the 
program. 
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Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


EDA (3, 90)  Blue  divisions  added,  by  kind  of  Blue  division  and  day 

KBDjID  (including  day  1). 

RDA(3,90)  Red  divisions  added,  by  kind  of  Red  division  and  day 


KRDjID 

(including  day  1). 

BAA(4,90) 

KBA,ID 

Blue  aircraft  added,  by  kind  of  Blue  aircraft  and  day 
(including  day  1) . 

RAA(4,90) 

KRA,ID 

Red  aircraft  added,  by  kind  of  Red  aircraft  and  day 
(including  day  1). 

DBQRA 

Desired  Blue  Quick  Reaction  Alert  aircraft  level  (number 
of  aircraft ) . 

DRQRA 

Desired  Red  Quick  Reaction  Alert  aircraft  level  (number  of 
aircraft ) . 

PBSHEL 

Starting  number  of  Blue  aircraft  shelters. 

PRSHEL 

Starting  number  of  Red  aircraft  shelters. 

FBD(3) 

KBD 

Firepower  per  Blue  division. 

FRD(3) 

KRD 

Firepower  per  Red  division. 

FBA(2) 

KBA 

Firepower  per  successful  Blue  CAS  sortie: 

1 - by  a GP  plane  on  CAS;  2 - by  an  SP-CAS  plane. 

FRA(2) 

KRA 

Firepower  per  successful  Red  CAS  sortie: 

1 - by  a GP  plane  on  CAS;  2 - by  an  SP-CAS  plane. 

* IDBSRC 

Day  for  Blue  sortie  rates  to  change. 

*IDRSRC 

Day  for  Red  sortie  rates  to  change. 

S0RRB1 (2,3) 
TYB,MSB 

Sortie  rates  for  Blue  before  day  IDBSRC,  by  type  of  plane: 
1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA;  3 - INT. 

S0RRB2 (2,3) 
TYB,MSB 

Sortie  rates  for  Blue  on  and  after  day  IDBSRC,  by  type  of 
plane: 

1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA;  3 - INT. 

Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


S0KRR1 (2,3) 
TYR,MSR 

Sortie  rates  for  Red  before  day  IDRSRC,  by  type  of  plane: 
1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA;  3 - INT. 

S0RRR2 (2,3) 
TYR,MSR 

Sortie  rates  for  Red  on  and  after  day  IDRSRC,  by  type  of 
plane : 

1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA;  3 - INT. 

IAA 

Indicator  for  air-to-air  combat  mode: 

0 - basic  method; 

1 - method  whereby  some  attackers  drop  their  ordnance, 

then  shoot  back  at  enemy  interceptors. 

XNBAA 

Number  of  nationalized  Blue  air-to-air  combat  regions  (on 
Blue  side  of  FEBA). 

XNRAA 

Number  of  nationalized  Red  air-to-air  combat  regions  (on 
Red  side  of  FEBA). 

*BALPHA (2,2) 
TYB,MSB 

Fraction  of  Blue  attackers  that  do  not  jettison  their 
ordnance  and  fly  back  but  continue  on,  by  Blue  attacker 
type: 

1 - GP;  2 - SP 
and  by  attack  mission: 

1 - CAS;  2 - ABA. 

*RALPHA(2,2) 

TYR,MSR 

Fraction  of  Red  attackers  that  do  not  jettison  their 
ordnance  but  continue  on,  by  Red  attacker  type  and  mission. 

BIDRA (2,4) 
TYBjINDR 

Air-to-air  detection  parameter  for  Blue  interceptors 
detecting  Red  attackers  (subscripted  as  for  BIKRA,  below). 

BIKRA (2,4) 
TYB,INDR 

Air-to-air  kill  parameter  for  Blue  interceptors: 

1 - GP;  2 - SP 
killing  Red  attackers: 

1 - GP-CAS;  2 - GP-ABA;  3 - SP-CAS;  4 - SP-ABA. 

*BADRI(4,2) 

INDB,TYR 

Air-to-air  detection  parameter  for  Blue  attackers  detecting 
Red  interceptors. 

BAKRI (4,2) 
INDB,TYR 

Air-to-air  kill  parameter  for  Blue  attackers: 

1 - GP-CAS;  2 - GP-ABA;  3 - SP-CAS;  4 - SP-ABA 
killing  Red  interceptors: 

1 - GP;  2 - SP. 

Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


RIDBA(2,4)  Air-to-air  detection  parameter — Red  interceptors  detect 

TYR,INDB  Blue  attackers. 


RIKBA (2,4) 
TYR,INDB 

Air-to-air  kill  parameter — Red  interceptors: 

1 - GP;  2 - SP 
kill  Blue  attackers: 

1 - GP-CAS;  2 - GP-ABA;  3 - SP-CAS;  4 - SP-ABA. 

*RADBI (4,2) 
INDRjTYB 

Air-to-air  detection  parameter — Red  attackers  detect  Blue 
interceptors . 

RAKBI (4,2) 
INDR,TYB 

Air-to-air  kill  parameter — Red  attackers: 
1 - CAS;  2 - ABA;  3 - CAS;  4 - ABA 
kill  Blue  interceptors: 

1 - GP;  2 - SP. 

BSAMZR (2,2) 
TYR,MSR 

Proportion  of  Red  attack  sorties  destroyed  by  Blue  ground- 
to-air  weapons,  by  type: 

1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA. 

RSAMZB (2,2) 
TYB,MSB 

Proportion  of  Blue  attack  sorties,  by  type  and  mission, 
destroyed  by  Red  ground-to-air  weapons. 

IR3SH 

Indicator  for  Red  SP-ABA  planes  to  be  sheltered: 
0 -do  shelter  them;  1 - do  not  shelter  them. 

*BFRAC1 

Fraction  of  Blue  aircraft  on  base  before  sortie  rate  change 

BFRAC2 

Fraction  of  Blue  aircraft  on  base  after  sortie  rate  change'. 

*RFRAC1 

Fraction  of  Red  aircraft  on  base  before  sortie  rate  change. 

RFRAC2 

Fraction  of  Red  aircraft  on  base  after  sortie  rate  change. 

FBSK 

Fraction  of  Blue  aircraft  shelters  hit  by  Red  that  are 
destroyed. 

PRSK 

Fraction  of  Red  aircraft  shelters  hit  by  Blue  that  are 
destroyed. 

BPASS(2) 

TYB 

Number  of  passes  per  Blue  ABA  sortie  by 
1 - GP  plane  on  ABA;  2 - SP-ABA  plane. 

RPASS ( 2 ) 
TYR 

Number  of  passes  per  Red  ABA  sortie  by 
1 - GP  plane  on  ABA;  2 - SP-ABA  plane. 

Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


IBABA 

Indicator  for  Blue  ABA  attack  mode  of  Red  airbases  (1,  2, 
3,  or  4). 

IRABA 

Indicator  for  Red  ABA  attack  mode  of  Blue  airbases  (1,  2, 
3,  or  4). 

XNBAB 

Number  of  notionalized  (identical)  Blue  airbases. 

XNRAB 

Number  of  notionalized  (identical)  Red  airbases. 

BPARK 

Number  of  Blue  parking  areas  for  aircraft  on  each  Blue 
airbase . 

RPARK 

Number  of  Red  parking  areas  for  aircraft  on  each  Red  air- 
base. 

BDRS(2) 

TYB 

Parameter  for  Blue  detecting  Red  shelters: 

1 - Blue  GP  aircraft;  2 - Blue  SP-ABA  aircraft. 

BDRNS(2) 

Parameter  for  Blue  detecting  Red  nonsheltered  aircraft: 
1 - Blue  GP  aircraft;  2 - Blue  SP-ABA  aircraft. 

BKRS(2) 

Parameter  for  Blue  killing  Red  shelters: 

1 - Blue  GP  aircraft;  2 - Blue  SP-ABA  aircraft. 

BKRNS(2) 

Parameter  for  Blue  killing  Red  nonsheltered  aircraft: 
1 - Blue  GP  aircraft;  2 - Blue  SP-ABA  aircraft. 

RDBS ( 2 ) 
TYR 

Parameter  for  Red  detecting  Blue  shelters: 

1 - Red  GP  aircraft;  2 - Red  SP-ABA  aircraft. 

RDBNS ( 2 ) 

Parameter  for  Red  detecting  Blue  nonsheltered  aircraft: 
1 - Red  GP  aircraft;  2 - Red  SP-ABA  aircraft. 

RKBS(2) 

Parameter  for  Red  killing  Blue  shelters: 

1 - Red  GP  aircraft;  2 - Red  SP-ABA  aircraft. 

RKBNS(2) 

Parameter  for  Red  killing  Blue  nonsheltered  aircraft: 
1 - Red  GP  aircraft;  2 - Red  SP-ABA  aircraft. 

The 

following  21  variables  are  used  only  if  ABA  mode  4 

(area  fire)  is  played  (variables  beginning  with  "B"  affect  events 
taking  place  at  the  Blue  airbase  (IRABA=4);  variables  beginning 
with  "R"  affect  events  taking  place  at  the  Red  airbase  ( IBABA=4 ) ) 


Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


B4B 

Area  (in  square  meters)  of  a typical  airbase  on  which  Blue 
aircraft  might  be  located. 

B4AL 

Overlap  factor  (between  0 and  1)  for  Red  munitions  at  the 
Blue  airbase. 

B4AN1,B4AN2 

Lethal  area  covered  by  one  pass  of  a Red  general-purpose 
or  special-purpose  ABA  aircraft  (resp.)  dropping  "anti- 
nonsheltered"  munitions  against  nonsheltered  aircraft. 

B4AS1,B4AS2 

Lethal  areas  covered  by  one  pass  of  a Red  general-purpose 
or  special-purpose  ABA  aircraft  (resp.)  dropping  "anti- 
shelter" munitions  against  shelters. 

B4NS1,B4NS2 

A reduction  factor  applied  to  B4AN1  or  B4AN2  (resp.)  when 
"anti-nonsheltered"  munitions  are  dropped  on  shelters. 

B4SN1,B4SN2 

An  expansion  (or  reduction)  factor  applied  to  B4AS1  or 
B4AS2  (resp . ) when  "anti-shelter"  munitions  are  dropped 
on  nonsheltered  aircraft. 

R4B 

Area  of  a typical  airbase  on  which  Red  aircraft  might  be 
located . 

r4al 

Overlap  factor  (between  0 and  1)  for  Blue  munitions  at  Red 
airbase . 

R4AN1,R4AN2 

Lethal  area  covered  by  one  pass  of  a Blue  general-purpose 
or  special-purpose  ABA  aircraft  (resp.)  dropping  "anti- 
nonsheltered"  munitions  against  nonsheltered  aircraft. 

R4AS1,R4AS2 

Lethal  area  covered  by  one  pass  of  Blue  general-purpose  or 
special-purpose  ABA  aircraft  (resp . ) dropping  "anti- 
shelter" munitions  against  shelters. 

R4NS1,R4NS2 

A reduction  factor  applied  to  R4AN1  or  R4AN2  (resp . ) when 
"anti-nonsheltered"  munitions  are  dropped  on  shelters. 

R4SN1,R4SN2 

An  expansion  (or  reduction)  factor  applied  to  R4AS1  or 
R4AS2  (resp . ) when  "anti-shelter"  munitions  are  dropped  on 
nonsheltered  aircraft. 

EPS4 

Convergence  criterion  for  Newton's  method  used  in  attack 
mode  4. 

[End  of  variables  for  area  fire] 


NFRFA 


Number  (up  to  15)  of  force  ratios  for  FF.RA  advance. 


Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


*FRFA(15) 

Force  ratios  for  FEBA  advance — vector  of  breakpoint 
abscissas  for  interpolation. 

«FA(15) 

FEBA  advance — vector  of  breakpoint  ordinates  for  interpolation. 

NFRBD 

Number  (up  to  15)  of  force  ratios  for  Blue  division 
destruction. 

*FRBD ( 15 ) 

Force  ratio  for  Blue  division  destruction — vector  of 
breakpoint  abscissas  for  interpolation. 

BD(15) 

Proportion  of  Blue  divisions  destroyed — vector  of  break- 
point ordinates  for  interpolation. 

NFRRD 

Number  (up  to  15)  of  force  ratios  for  Red  division 
destruction. 

*FRRD(15) 

Force  ratios  for  Red  division  destruction. 

RD(15) 

Proportion  of  Red  divisions  destroyed. 

NB 

Number  of  Blue  pure  strategies  (all  pure  strategies  are 
available  in  each  period). 

NR 

Number  of  Red  pure  strategies  (all  pure  strategies  are 
available  in  each  period). 

*PB(20,3) 

IBA,MS 

Proportion  of  Blue  general-purpose  aircraft  assigned  to 
mission  MS  (1  - CAS;  2 - ABA;  3 - INT)  by  Blue  pure 
strategy  IBA;  note  that 

3 < 

l PB(IBA,MS)  = 1.0,  for  IBA  = 1,NB. 

MS=1 

*PR(20,3) 
IRA, MS 

Proportion  of  Red  general-purpose  aircraft  assigned  to 
mission  MS  by  Red  pure  strategy  IRA. 

*MOE 

Measure  of  effectiveness  to  be  optimized:  (1)  FEBA; 

(2)  firepower  difference;  (3)  air  firepower  difference; 
(4)  surviving  aircraft,  weighted  by  type;  (5)  generalized 
air  measure,  including  QRA. 

MOET 

Day  on  which  MOE  is  to  be  found. 

The  following  six  variables  are  used  as  weights  if  M0E=4  or  5: 


BCWGT 

Weight  for  cumulative  Blue  CAS  firepower  delivered  (must 
be  zero  if  M0E=4). 

BCWGT 


Variable  Name, 
Dimension  Limits, 
and  Indices 


Definition 


BSWGT(3) 

MS 

Weights  for  surviving  special-purpose  aircraft  (KBA=2,3,4), 
by  kind  of  aircraft  (1  - SP-CAS;  2 - SP-ABA;  3 - SP-INT).  . 

BQWGT(2) 

If  M0E=4,  BQWGT(l)  = weight  for  surviving  Blue  general- 
purpose  aircraft;  BQWGT(2)  is  not  used.  If  M0E=5, 
BQWGT(l)  = weight  for  Blue  general-purpose  surviving  air- 
craft minus  desired  Blue  QRA;  BQWGT(2)  is  weight  for 
desired-minus-actual  Blue  QRA. 

RCWGT 

Weight  for  cumulative  Red  CAS  firepower  delivered  (must  be 
zero  if  M0E=4). 

RSWGT(3) 

MS 

Weights  for  surviving  special-purpose  Red  aircraft,  by  kind 
of  aircraft. 

RQWGT(2) 

Weights  for  Red  surviving  general-purpose  aircraft  and/or 
QRA  (analogous  to  BQWGT(*)). 

#GVA 

Game  value  added  (i.e.,  value  added  to  each  payoff  entry 
to  make  it  positive  for  the  game-solving  procedure). 

B.  EXPLANATORY  NOTES  ON  THE  INPUT  VARIABLES 


NKBA,NKRA 

These  input  variables  would  usually  be  either  1 
(general-purpose  aircraft  only)  or  4 (general- 
purpose  and  all  kinds  of  special-purpose  aircraft ) . 

NPD , IDL2 , IDL3 

There  can  be  up  to  three  periods.  The  first  and 
last  days  of  the  periods  are  denoted  by  the 
variables  IDKL=1,  IDU1,  IDL2,  IDU2,  IDL3,  and 
IDU3=NID  (resp . ) . They  should  be  in  increasing 
order.  Furthermore,  IDU1,  the  last  day  of  the 
first  period,  equals  IDL2-1  (one  day  before  the 
first  day  of  the  second  period),  and  IDU2=IDL3-1. 
From  the  inputs  IDL2  and  IDL3j  all  the  other  period 
limits  can  be  found.  A two-period  war  is  considered 
as  the  last  two  periods  of  a three-period  war  and 
is  marked  by  the  variables  IDL2  (which  must  be  input 
as  1),  IDL3  (input),  IDU2=IDL3-1,  and  IDU3=NID.  The 
variables  IDL1  and  IDU1  are  not  used.  In  a one- 
period  war,  IDL3  must  be  input  as  1. 

IRQ, JR0,KR0 

These  input  variables  must  not  exceed  NR  (the  input 
number  of  Red  pure  strategies).  They  can,  however, 
be  left  blank  or  input  as  zero — in  which  case  the 
first  pure  stratgey  in  Red's  list  will  be  used  as  a 
first  guess. 

IPRV,IPRU 


IDBSRC,  IDRSRC 

BALPHA(  , ) ,RALPHA(  , ) 

BADRI ( , ) ,RADBI(  , ) 

BFRAC1,BFRAC2, 

RFRAC1,RFRAC2 

FRFA(  ) ,FRBD(  ),FRRD(  ) 
FRFA(  ) 

PB(  , ) ,PR(  , ) 


MOE 

MOET 

GVA 


The  various  printout  options  that  can  be  obtained 
with  these  variables  are  explained  in  Section  A 
of  Chapter  V (below).  In  a two-period  war,  IPRV 
must  equal  1 to  obtain  output.  In  a one-period 
war,  IPRU  must  equal  1. 

These  input  variables  are  the  first  days  that  the 
new  sortie  rates  will  be  used. 

Values  for  these  variables  are  needed  only  if 
IAA  = 1. 

Values  for  these  variables  are  needed  only  if 
IAA  = 0. 

Since  these  inputs  are  closely  related  to  the 
sortie  rates,  care  should  be  taken  in  making  the 
inputs  compatible  with  sortie  rates. 

Abscissa  breakpoint  vectors  should  be  monotone. 

Only  force  ratios  greater  than  or  equal  to  1.0 
need  be  input;  inputs  less  than  1.0  will  be 
ignored.  (The  FEBA  advance  function  F is  forced 
to  be  symmetrical  in  the  sense  that 
F(l/x)  = -F(x),  where  x is  the  force  ratio.) 

Though  these  vectors  are  dimensioned  to  hold  up 
to  20  pure  strategies,  the  game  matrix  arrays 

3 

will  hold  only  11.  The  sum  £ PB(IBA,MS)  must 

MS=1 

not  exceed  1.0 — and  generally  should  equal  1.0 
exactly,  for  all  IBA;  similarly  for  Red.  If  the 
sum  is  less  than  1.0,  some  GP  aircraft  are  not 
assigned  to  a mission;  they  are  still  vulnerable 
to  enemy  ABA. 

If  MOE  = 4 or  5,  a wide  variety  of  different 
measures  can  be  obtained  by  varying  the  12  input 
weights  (as  described  in  detail  in  the  appendix  to 
Vol.  I). 

Usually  equal  NID  (the  last  day  of  the  war),  it 
should  not  exceed  NID.  Even  if  MOET  is  less  than 
NID,  the  running  time  of  the  model  remains  the 
same  (i.e.,  the  running  time  depends  on  NID,  not 
MOET). 

This  should  be  large  enough  to  avoid  the  premature 
stop;  10,000  or  20,000  is  a good  range. 


c. 


TABLE  OF  UPPER  AND  LOWER  LIMITS  ON  VARIABLES1 


Lower 

Upper 

Lower 

Upper 

Variable 

Limit 

Limit 

Variable 

Limit 

Limit 

• 

NKBD,NKRD 

1 

3 

IDBSRC , IDRSRC 

NKBA,NKRA 

1 

H 

S0RRB1(  , ) 
S0RRB2(  , ) 

NID 

1 

90 

S0RRR1(  , ) 

• 

NPD 

1 

3 

S0RRR2(  , ) 

IDL2,IDL3 

1 

IAA 

0 

1 

IR0,JR0,KR0 

0 

NR 

(input) 

XNBAAjXNRAA 

1.0 

• 

BALPHA(  , ) 

0.0 

1.0 

IPRVjIPRU 

0 

1 

RALPHA(  , ) 

0.0 

1.0 

IREPLB , IREPLR 

0 

1 

BIDRA(  , ) 

0.0 

1.0 

BDA(KBD,ID) 

BIKRA(  , ) 

0.0 

1.0 

• 

RDA(KRD,ID) 

BADRI ( , ) 

0.0 

1.0 

BAA(KBA,ID) 

RAA(KRA,ID) 

BAKRI(  , ) 

0.0 

1.0 

• 

DBQRA,DRQRA 

RIDBA(  , ) 

0.0 

1.0 

PBSHEL 

RIKBA(  , ) 

0.0 

1.0 

PRSHEL 

RADBI(  , ) 

0.0 

1.0 

FBD(KBD) 

• 

FRD(KRD) 

RAKBI(  , ) 

0.0 

1.0 

FBA(  ) 

BSAMZR(  , ) 

0.0 

1.0 

RRA(  ) 

RSAMZB(  , ) 

0.0 

1.0 

(continued  on 

next  page) 

1If  no  lower  limit  is  specified.  It  Is  zero. 


Limits  on  dimensioned  variables  apply  to  each  variable  in  the  array. 

These  limits  merely  Insure  that  the  program  will  run  (and  not,  for 
instance,  have  to  divide  by  zero);  they  do  not  insure  reasonable  answers. 

Variables  are  listed  in  the  order  input  to  the  program,  the  same  order  as 
O in  Section  A of  this  chapter  (above). 

Other  restrictions  on  variables  are  described  in  Section  B of  this 
chapter  (above). 


15 


Lower 

Upper 

Lower 

Upper 

Variable 

Limit 

Limit 

Variable 

Limit 

Limit 

IR3SH 

0 

1 

NFRFA 

1 

15 

BFRAC1,BFRAC2 

0.0 

1.0 

FRFA(  ) 

RFRAC1,RFRAC2 

0.0 

1.0 

FA(  ) 

FBSK,FRSK 

0.0 

1.0 

NFRBD 

1 

15 

BPASS ( ) 
RPASS(  ) 

FRBD(  ) 

BD(  ) 

0.0 

1.0 

IBABAjIRABA 

1 

4 

NFRRD 

1 

15 

XNBABjXNRAB 

1.0 

FRRD(  ) 

BPARK,RPARK 

1.0 

RD(  ) 

0.0 

1.0 

BDRS(  ) ,BDRNS(  ), 
BKRS(  ) ,BKRNS(  ) 

0.0 

1.0 

NB,NR 

1 

11 

RDBS(  ),RDBNS(  ), 

0.0 

1.0 

PB(  3 ) 

0.0 

1.0 

RKBS(  ) ,RKBNS(  ) 

PR(  , ) 

0.0 

1.0 

B4B 

MOE 

1 

5 

B4AL 

0.0 

1.0 

MOET 

1 

90 

B4AN1jB4AN25B4AS1, 
B4AS2 , B4NS1 , B4NS2 

BCWGT 

B4SN1jB4SN2 

BSWGT(  ) 

R4B 

BQWGT(  ) 

R4AL 

0.0 

1.0 

RCWGT 

R4AN1,R4AN2,R4AS1, 
R4AS  2 j R4NS 1 , R4NS 2 

■ 

RSWGT(  ) 

RQWGT(  ) 

R4SN1jR4SN2 

GVA 

EPS41 

1EPS4  must  be  strictly  greater  than  zero  if  mode  4 is  used. 
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D. 


FACSIMILE  OPTSA  DATA  DECK 


On  the  following  three  pages  appears  a typescript 
facsimile  of  the  data  deck  for  a problem,  to  illustrate  data- 
deck  preparation.  Each  line  of  print  represents  one  data  card. 
The  variables  appearing  on  that  card  are  listed  in  order  at  the 
left.  For  each  card,  there  are  eight  fields,  each  10  columns 
wide.  (Real  variables  are  not  right-j ustified  in  this  deck.) 
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mast  be  read  for  the  area  fire-attack  mode.  The  first  eight  go  on  one  eard;  the  last  two 
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Chapter  III 

DEFINITIONS  OF  INDEXING  AND  COMPUTED  VARIABLES 

A.  PROGRAM  MAIN 

Variable  Definition 

IDL1  First  day  of  first  period  of  war  (always  set  to  1) 

IDU1  Last  day  of  first  period  (set  to  IDL2-1;  IDL2  is  an  input). 

IDU2  Last  day  of  second  period  (set  to  IDL3-1;  IDL3  is  an  input). 

IDU3  Last  day  of  third  period  of  war  (always  set  to  NID,  the  number  of 

days  in  the  war) . 

Note  that,  in  a two-period  war,  IDL2  and  IDU2  are  the  first  and 
last  days  of  the  first  period;  IDL3  and  IDU3,  the  first  and  last 
days  of  the  second  period. 

B.  SUBROUTINE  READ 

Variable  Definition 

IBA  Blue  allocation  of  aircraft  to  mission  (i.e.,  the  IBAth  pure 

strategy  in  Blue ' s list ) . 

IRA  Red  allocation  of  aircraft  to  mission  (i.e.,  the  IRA  pure 

strategy  in  Red's  list). 

KAT  Kind  of  attacker: 

1 _ GP-CAS;  2 - GP-ABA;  3 - SP-CAS;  4 - SP-ABA. 

TYI  Type  of  interceptor: 

1 - GP;  2 - SP 

(this  is  declared  to  be  an  integer  variable) . 

The  following  indexing  variables  (used  in  subroutines  READ 
and  CAM)  are  defined  in  the  section  on  CAM:  ID,  KBA,  KBD,  KRA, 

KRD , MS,  a'nd  TY . 
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The  variables  MIT  and  MOT  (the  input  and  output  tracks) 
are  assigned  the  values  5 and  6 (resp.)  in  the  program.  MOT 
also  appears  in  routines  SIMPL1,  SIMPL2,  and  SIMPL3 , which  con- 
tain WRITE  statements. 

C.  SUBROUTINE  SIMPL1 

The  three  game-solving  subroutines  (SIMPL1,  SIMPL2,  and 
SIMPL3)  each  follow  the  same  procedure:  "raw"  payoff  entries 

are  generated  by  CAM  and  solution  of  games  at  following  stages. 
The  raw  payoff  entries  are  stored  in  COMMON  matrices  W for 
SIMPL1,  V for  SIMPL2 , and  U for  SIMPL3 . GVA  is  then  added  to 
each  payoff  entry;  the  results  are  placed  in  the  simplex  tableau 
matrix  AS;  and  the  game  is  solved  as  in  Chapter  3 of  Volume  I of 
this  paper.  There  is  a separate  matrix  AS  for  each  subroutine. 
Along  with  AS,  there  is  a collection  of  variables  for  the  LP 
right-hand  side,  cost  row,  pivot  coefficient,  etc.,  for  each 
subroutine . When  the  game  is  solved,  the  optimal  strategies 
are  transferred  to  the  COMMON  arrays  SWB  and  SWR  (which  are 
vectors)  for  SIMPL1,  SVB  and  SVR  for  SIMPL2 , and  SUB  and  SUR  for 
SIMPL3 • The  strategy  arrays  also  hold  the  Blue  and  Red  pure 
strategy  played  in  the  previous  period. 

While  the  game  value  and  strategy  arrays  in  COMMON  are 
dimensioned  for  11  entries,  the  simplex  tableau  arrays  in  each  ■ 
subroutine  are  dimensioned  for  20.  Thus,  if  the  core  space  is 
available  and  it  is  desired  to  play  up  to  20  pure  strategies, 
only  the  arrays  in  COMMON  need  be  redimensioned. 

A two-period  war  is  considered  as  the  last  two  periods  of 
a three-period  war.  Second-period  games  are  solved  by  SIMPL3; 
first-period  games,  by  SIMPL2;  one-period  war,  by  SIMPL3. 

Variables  are  listed  in  alphabetical  order.  Computed  and 
indexing  variables  are  not  separated,  as  many  integer  variables 
are  computed  and  later  used  as  indices.  An  asterisk  preceding 
a variable  indicates  storage  in  blank  COMMON. 
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Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


AS(20,40) 

J,I 

Coefficient  matrix  for  LP  (linear  programming  problem)  for 
solving  first  stage  games. 

BIG 

Largest  element  in  payoff  column  of  first  Red  pure 
strategy  used. 

BS ( 20 ) 
IROW 

LP  right-hand  side. 

cs(4o) 

I 

LP  cost  coefficients. 

GVAL 

Expected  outcome  (game  value)  for  a relaxed  problem  plus 
GV A (i.e.,  GVAL-GVA  is  the  two-sided  optimal  value  of  a 
relaxed  matrix  game). 

IBACT(20) 

IB 

1,  if  payoff  row  LB  for  Blue  has  been  computed;  0, 
otherwise . 

IBAS(20) 

IBC 

Active  Blue  strategies  in  solution  of  current  relaxed 
problem. 

IBASIC(20) 

IROW 

Basic  variable  in  row  IROW. 

IBAS1 

IBASIC ( IROW ) , for  a given  value  of  IROW:  or  IBAS(IBC). 

IBC 

Counter  for  determining  vector  IBAS. 

IBIG 

Blue  pure  strategy  producing  payoff  value  BIG  against 
first  Red  pure  strategy  used. 

IENTER 

Variable  to  enter  basis  in  dual  simplex  method. 

INDIC 

Working  variable  used  to  determine  IENTER. 

INFEAS 

0,  if  current  solution  is  feasible;  1,  if  infeasible — used 
both  in  dual  simplex  method  and  in  determining  whether 
solution  to  current  relaxed  problem  is  solution  to  whole 
game. 

IR 

First  Red  pure  strategy  to  be  used  (also  used  for  each  new 
Red  pure  strategy  to  enter  tableau). 

IRACT(20) 

I 

1,  if  payoff  column  I for  Red  has  been  computed;  0,  other- 
wise. 

Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


IRAS(20) 

IRC 

Red  pure  strategy  corresponding  to  row  IRC  of  simplex 
tableau. 

IRAS1 

IRAS (IRC). 

IRC 

Counter  for  determining  vector  IRAS. 

IROW 

Row  of  simplex  tableau  being  processed  (in  pivoting 
operations , etc . ) . 

ITCOL 

Total  number  of  columns  of  LP  (decision  plus  slack  vari- 
ables) . 

JBIG 

New  Red  pure  strategy  to  enter  LP  as  a new  constraint. 

LB 

Blue  pure  strategy  or  column  of  LP  being  considered. 

LEAVE1 

Row  whose  basic  variable  will  leave  basis  in  dual  simplex 
method . 

LR 

Red  pure  strategy  being  considered. 

MS 

Mission  (used  for  setting  first-period  allocations). 

NBC 

Number  of  Blue  pure  strategies  used  with  nonzero  probabil- 
ity in  optimal  solution  to  current  relaxed  problem. 

NBL 

NB+NR0WM1  (i.e.,  one  less  than  total  number  of  columns  in 
tableau — NB  is  an  input . ) 

NPDM1 

Number  of  periods  minus  1 (NPD-1). 

NPDM2 

NPD-2. 

NRAS 

Number  of  Red  pure  strategies  being  considered  in  current 
relaxed  problem  (essentially  the  same  as  NROWS). 

NROWM1 

NROWS- 1. 

NROWS 

Number  of  rows  of  LP  being  solved. 

PIVCO 

Value  of  pivot  term. 

*PROPB(3,3) 

MS,1 

(Defined  in  CAM. ) 

Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


* PROPR (3,3)  ( Defined  in  CAM . ) 

MS,1 

RATIO  Ratio  of  cost  coefficient  to  variable  in  leaving  row  to 


RENT 

determine  entering  basic  variable  in  dual  simplex  method. 

Ratio  of  cost  coefficient  to  variable  in  leaving  row  for 
entering  basic  variable. 

SUM(20) 

J 

Expected  outcome  of  optimal  Blue  strategy  for  current 
relaxed  problem  against  Red  pure  strategy  J — i.e., 

E X(LB)*W(LB,J). 

IE 

*SVB( 11,11,11) 
EB,LR, L 

Optimal  Blue  for  second  period  (i.e.,  probability  of  Blue 
playing  pure  strategy  L in  period  2 when  Blue  and  Red 
have  played  LB  and  LR,  resp.,  in  period  1). 

*SVR(ll,ll,ll) 
LB, IE,  L 

Optimal  Red  strategy  for  second  period  (i.e.,  probability 
of  Red  playing  pure  strategy  L in  period  2 when  Blue  and 
Red  have  played  LB  and  LR,  resp.,  in  period  1). 

*SWB(11) 

L 

Optimal  Blue  strategy  for  first  period  (i.e.,  probability 
of  Blue  playing  pure  strategy  I). 

*SWR(11) 

IRAS1 

Optimal  Red  strategy  for  first  period  (i.e.,  probability 
of  Red  playing  pure  strategy  IRAS1) . 

TEST 

Variable  for  determining  feasibility  of  right-hand  side  in 
current  dual  simplex  iteration. 

*VALUE 

Value  of  game  (total  three-stage  game  for  three-period 
war. ) 

*W(11,11) 
LB,  J 

First-stage  game-payoff  matrix;  W(LB,J)  is  the  value  of  a 
second-stage  game  when  Blue  and  Red  pure  strategies  LB  and 
J,  (resp.)  have  been  played  in  the  first  period  (this 
value  gecomes  a payoff  entry  in  the  first-stage  game). 

X(20) 

IBAS1 

Blue  randomized  strategy  (vector  of  probabilities)  optimal 
for  current  relaxed  problem. 

XNEC 

"Northeast  corner";  value  of  LP  at  any  iteration,  appear- 
ing at  upper  right  corner  of  simplex  tableau. 

D. 


SUBROUTINE  SIMPL2 ( I B , IR ) 


Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


AS (20,40) 
J , I 


BIG 

BS(20) 

IROW 

CS(40) 

I 

GVAL 

IB 


IBACT(20) 

LB 

IBAS(20) 

IBC 

IBASIC(20) 

IROW 

IBAS1 

IBC 

IBIG 

TENTER 

INDIC 

INPEAS 

IR 


IRACT(20) 

I 

IRAS(20) 

IRC 

IRC 

IROW 

ITCOL 

JBIG 

JR 


LB 

LEAVE1 

LR 


Coefficient  matrix  for  LP  for  solving  second-stage  games. 


(As  in  SIMPL1 . ) 


Blue  pure  strategy  that  was  used  in  period  1.  Set  in  the 
calling  program  SIMPL1. 


(As  in  SIMPL1 . ) 


Red  pure  strategy  that  was  used  in  period  1.  Set  in  the 
calling  program  SIMPL1. 


(As  in  SIMPL1 . ) 


First  Red  pure  strategy  to  be  used;  also  used  for  each  new 
Red  pure  strategy  to  enter  tableau. 


(As  in  SIMPL1 . ) 
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• Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


MS 

Mission  (used  for  setting  second-period  allocations). 

• 

• 

NBC 

NBL 

NPDM1  j 
NRAS 
NR0WM1  1 
NROWS 
PIVCO  i 

(As  in  SIMPL1 . ) 

*PROPB(3,3) 
MS, 2 

(Defined  in  CAM.) 

• 

*PROPR(3,3) 
MS, 2 

(Defined  in  CAM.) 

RATIO  f 
RENT  j 

(As  in  SIMPL1. ) 

• 

*SUB(11,11,11) 
LB,LR, L 

Optimal  Blue  strategy  for  third  period  (i.e.,  probability 
that  Blue  plays  pure  strategy  L in  period  3 when  Blue  and 
Red  played  LB  and  LR  in  period  2 and  IB  and  IR  in  period  1) 

SUM(20) 

J 

(As  in  SIMPL1 . ) 

• 

*SUR(11,11,11) 
LB,LR, L 

Optimal  Red  strategy  for  third  period  (i.e.,  probability 
that  Red  plays  pure  strategy  L in  period  3 when  Blue  and 
Red  played  LB  and  LR  in  period  2 and  IB  and  IR  in  period  1) 

• 

*SVB(11,11,11) 
XB,IR,  I 

Optimal  Blue  strategy  for  second  period  (i.e.,  probability 
that  Blue  plays  pure  strategy  I in  period  2 when  Blue  and 
Red  played  IB  and  IR  (set  in  SIMPL1)  in  period  1). 

*SVR(11,11,11) 

IB,IR,IRAS1 

Optimal  Red  strategy  for  second  period  (i.e.,  probability 
that  Red  plays  pure  strategy  IRAS1  in  period  2 when  Blue 
and  Red  played  IB  and  IR  (set  in  SIMPL1)  in  period  1). 

• 

TEST 

(As  in  SIMPL1). 

*V(11,11)  Second-stage  game  payoff  matrix;  V(LB,J)  is  the  payoff 

LB, J entry  when  Blue  and  Red  play  pure  strategies  LB  and  J 

(resp.)  in  period  2 — having  played  IB  and  IR  in  period  1. 


*W(11,11)  Value  of  second-stage  game,  which  becomes  a payoff  entry  in 

IB,IR  the  first-stage  game  matrix  W. 
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Definition 


Variable  Name, 
Dimension  Limits, 
and  Indices 


X(20)  ) 

IBAS1>  (As  in  SIMPL1.) 

XNEC  ) 


E.  SUBROUTINE  SIMPL3 ( JB , JR) 


The  final-stage  payoffs  found  in  this  subroutine  are  actual 
measures  of  effectiveness  from  the  assessment  routine  (e.g., 

FEBA  position,  cumulative  Blue  minus  Red  firepower,  etc.). 

Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


AS(20,40) 

J,I 


Coefficient  matrix  of  LP  for  solving  third-stage  games. 


BA 

*BAD(4,90) 

KA,MOET 

*BAI(4,90) 

KAjMOET 


BIG  ) 
BS(20)  [ 
IROW  > 

*CBAF(90)  I 
MOET  / 
#CBF(90)  f 
MOET  V 
*CRAF(90)  ( 
MOET  [ 
*CRF(90)  \ 

MOET  ] 

CS(40) 

I 


"Blue  aircraft"  (working  variable  used  in  computing  MOE  5). 


(Defined  in  CAM. ) 


(As  in  SIMPL1. ) 


(Defined  in  CAM. ) 


(As  in  SIMPL1 . ) 


*FEBA(90) 

MOET 


(Defined  in  CAM. ) 
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Variable  Name, 
Dimension  Limits, 
and  Indices 


Definition 


G 


GVAL 


Negative  of  a negative  payoff  entry  U(I,J),  whose  absolute 
value  is  greater  than  GVA — i.e.,  if  U(I,J)  + GVA  < 0, 

G is  set  equal  to  |U(I,J)|,  which  is  greater  than  GVA,  and 
the  program  stops. 

(As  in  SIMPL1.) 


IBACT(20) 

LB 

IBAS(20) 

IBC 

IBASIC(20) 

IROW 

IBAS1 

IBC 

IBIG 

IENTER 

INDIC 

INFEAS 

IRACT(20) 

I 

IRAS (20) 
IRC 
IRC 
IROW 
ITCOL 


(As  in  SIMPL1.) 


JB 

JBIG 

JR 

KA 

KR 

LB 

LEAVE1 


Blue  pure  strategy  that  was  used  in  period  2 (set  in  the 
calling  program  SIMPL2) . 

(As  in  SIMPL1 . ) 

Red  pure  strategy  that  was  used  in  period  2 (set  in  the 
calling  program  SIMPL2). 

Kind  of  aircraft  (indexing  variable  used  in  computing 
MOEs  4 and  5). 

First  Red  pure  strategy  to  be  used  (also  used  for  each  new 
Red  pure  strategy  to  enter  tableau) . 

(As  in  SIMPL1. ) 


MS 


Mission  (used  for  setting  third-period  allocations;  also 
equal  to  KA-1  in  computing  MOEs  4 and  5). 


Variable  Name, 
Dimension  Limits 
and  Indices 

NBC  ) 

NBL  > 

NRAS  ) 

NR0WM1  ) 

NROWS  > 

PIVCO  ) 

*PROPB(3,3)) 

MS, 3 l 
*PROPR (3,3)  { 

MS, 3 ) 

RA 

*RAD(^,90)  ) 

KA,MOET  ( 
*RAI(4,90)  ( 

KA,MOET  ) 

ratio) 

RENT  t 

*SUB(11,11,11) 
JB, JR,  I 


SUM(20) 

J 

SUMOE 

*SUR(11,11,11) 
JB, JRjIRASl 


TEST 

*u(n,n) 

IB,  J 


*V(11,11) 

JB,JR 

X(20)  ) 
IBAS1 > 
XNEC  ) 


Definition 


(As  in  SIMPL1 . ) 


(As  in  SIMPL1 . ) 


(Defined  in  CAM.) 


"Red  aircraft"  (working  variable  used  in  computing  MOE  5). 


(Defined  in  CAM. ) 


(As  in  SIMPL1 . ) 


Optimal  Blue  strategy  for  third  period  (i.e.,  probability 
that  Blue  plays  pure  strategy  I in  period  3 when  Blue  and 
Red  played  JB  and  JR  in  period  2). 

(As  in  SIMPL1 . ) 


Working  variable  used  in  computing  MOEs  ^ and  5. 

Optimal  Red  strategy  for  third  period  (i.e.,  probability 
that  Red  plays  pure  strategy  IRAS1  in  period  3 when  Blue 
and  Red  played  JB  and  JR  in  period  2). 

(As  in  SIMPL1 . ) 

Third-stage  game  payoff  matrix  U(LB,J)  is  the  payoff  entry 
when  Blue  and  Red  play  pure  strategies  LB  and  J (resp.) 
in  period  3,  having  played  JB  and  JR  in  period  2 (and  some 
pure  strategy  pair  in  period  1) . 

Value  of  a third-stage  game,  which  becomes  a payoff  entry 
in  a second-stage  game  matrix  V. 


(As  in  SIMPL1 . ) 


F.  SUBROUTINE  CAM(IDL.IDU) 

Since  in  CAM  there  are  many  dimensioned  variables  whose 
elements  are  computed  in  large  DO  loops,  a list  of  definitions 
of  the  most  commonly  used  indexing  variables  of  these  loops  is 
given  first.  The  indexing  variables  are  in  alphabetical  order. 
TY,  TYB,  and  TYR  are  declared  integer.  Then  the  computed 
variables  are  defined  in  the  order  computed  in  the  subroutine . 
They  are  defined  alphabetically  in  Appendix  B. 


1 . Indexing  Variables 

Variable  Definition 

ID  Day  of  war. 

IDM1  Preceding  day  (ID-1) . 

INDB  Indicator  for  Blue  attacker  in  air-to-air  interaction: 

1 - Blue  GP-CAS;  2 - Blue  GP-ABA; 

3 - Blue  SP-CAS;  4 - Blue  SP-ABA. 

Computed  as  INDB  = MSB+2*(TYB-1) . 

INDR  Indicator  for  Red  attacker  in  air-to-air  interaction: 

1 - Red  GP-CAS;  2 - Red  GP-ABA;  3 - Red  SP-CAS;  4 - Red  SP-ABA. 
Computed  as  INDR  = MSR+2*(TYR-1) . 

IPD  Period  of  war  (also  a computed  variable). 

KBA  Kind  of  Blue  aircraft: 

1 - Blue  GP;  2 - Blue  SP-CAS;  3 - Blue  SP-ABA;  4 - Blue  SP-INT. 
Used  in  air-to-ground  interaction  and  initial  and  final  Blue- 
aircraft-inventory  calculations . 

KBD  Kind  of  Blue  division  (up  to  three  kinds). 

KRA  Kind  of  Red  aircraft: 

1 - Red  GP;  2 - Red  SP-CAS;  3 - Red  SP-ABA;  4 - Red  SP-INT. 
Used  in  air-to-ground  interaction  and  initial  and  final  Red- 
aircraft-inventory  calculations . 

KRD  Kind  of  Red  division  (up  to  three  kinds). 

MS  Aircraft  mission: 

1 - CAS;  2 - ABA;  3 - INT. 

Also  used  to  index  kind  of  SP  aircraft,  by  the  relation 
MS=KBA-1  or  KRA-1. 


Variable 


Definition 


MSB  Blue  aircraft  mission: 

. 1 - CAS;  2 - ABA;  3 - INT. 

MSR  Red  aircraft  mission: 

1 - CAS:  2 - ABA;  3 - INT.  • 

TY  Type  of  aircraft: 

1 - GP;  2 - SP 

(without  specifying  what  kind  of  SP  aircraft;  the  mission  is 
needed  to  do  that . ) 

TYB  Type  of  Blue  aircraft: 

1 - GP;  2 - SP. 

TYR  Type  of  Red  aircraft: 

1 - GP;  2 - SP. 


2 . Computed  Variables 

Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


IDL  First  day  for  which  assessment  is  to  be  computed  in  that 

particular  call  of  CAM. 

IDU  Last  day  for  which  assessment  is  to  be  computed  in  that 

particular  call  of  CAM. 


Forces  at  Beginning  of  Day 


BDI(3,90) 

KBD,ID 

RDI(3,90) 

KRDjID 

BGF(90) 

ID 

RGF(90) 

ID 

SHELB(90) 

ID 

SHELR(90) 

ID 


Blue  division  inventory  at  beginning  of  day  ID,  by  kind 
of  Blue  division. 

Red  division  inventory  at  beginning  of  day  ID,  by  kind  of 
Red  division. 

Blue  ground  firepower  delivered  on  day  ID. 

Red  ground  firepower  delivered  on  day  ID. 

Number  of  Blue  shelters  at  beginning  of  day  ID. 

Number  of  Red  shelters  at  beginning  of  day  ID. 


# 
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Variable  Name, 
Dimension  Limits, 
and  Indices 


Definition 


BAI(4,90) 

KBAjID 

Inventory  of  Blue  aircraft  at  beginning  of  day  ID,  by  kind 
of  Blue  aircraft. 

RAI(4,90) 

KRA,ID 

Inventory  of  Red  aircraft  at  beginning  of  day  ID,  by  kind 
of  Red  aircraft. 

ABQRA 

Actual  number  of  Blue  QRA  aircraft  (GP  aircraft  designated 
as  QRA) . 

BAAS 

Blue  GP  aircraft  assignable  to  missions. 

ARQRA 

Actual  number  of  Red  QRA  aircraft  (GP  aircraft  designated 
as  QRA). 

RAAS 

Red  GP  aircraft  assignable  to  missions. 

IPD 

Period  of  war. 

PROPB(3,3) 
MS, IPD 

Proportion  of  Blue  GP  aircraft  assigned  to  mission  MS 
in  period  IPD  (in  two-period  war,  IPD  is  2 for  the  first 
period,  3 for  the  second). 

PROPR(3,3) 
MS, IPD 

Proportion  of  Red  GP  aircraft  assigned  to  mission  MS 
in  period  IPD. 

BA ( 2 , 3 ) 
TY,MS 

Blue  aircraft  on  missions,  by  aircraft  type  (GP  or  SP)  and 
mission. 

RA(2,3) 

TY,MS 

Red  aircraft  on  missions,  by  aircraft  type  and  mission. 

SUMB,SUMR 

Working  variables  for  computing  BANAS  and  RANAS. 

BANAS 

Blue  GP  aircraft  not  assigned  to  missions. 

RANAS 

Red  GP  aircraft  not  assigned  to  missions. 

SORRB (2,3) 
TY,MS 

Sortie  rates  for  Blue,  by  aircraft  type  and  mission. 

BFRAC 

Fraction  of  Blue  aircraft  on  base. 

SORRR(2,3) 

TY,MS 

Sortie  rates  for  Red,  by  aircraft  type  and  mission. 

RFRAC 

Fraction  of  Red  aircraft  on  base. 

Variable  Name, 
Dimension  Limits, 


and  Indices 

Definition 

BS(2,3) 

TY,MS 

Blue  sorties,  by  aircraft  type  and  mission. 

RS(2,3) 

TY,MS 

Red  sorties,  by  aircraft  type  and  mission. 

BANF (2,3) 
TY,MS 

Blue  aircraft  not  flying  (i.e.,  staying  on  the  base) — 
positive  only  if  the  sortie  rate  is  less  than  1.0. 

RANF(2,3) 

TY,MS 

Red  aircraft  not  flying  (i.e.,  staying  on  the  base) — 
positive  only  if  the  sortie  rate  is  less  than  1.0. 

Air-to-Air  Interaction 


BITS 

Blue  INT  sorties. 

BATS 

Blue  attack  sorties  (CAS  and  ABA). 

RITS 

Red  INT  sorties. 

RATS 

Red  attack  sorties  (CAS  and  ABA). 

IBIRA 

Check  variable  (the  Blue- interceptor /Red-attacker 
attritions  are  zero  if  either  side  has  zero  sorties; 
IBIRA  then  is  set  to  1,  and  the  attrition  computation 
bypassed) . 

IBARI 

Check  variable  for  the  Blue-attacker /Red-interceptor 
interaction. 

VBIDRA^)1 

TYB 

Average  detection  parameter  for  Blue  interceptors,  by  type 
against  Red  attackers  in  the  air-to-air  interaction. 

VRADBI ( 4 ) 1 
INDR 

Average  detection  parameter  for  Red  attackers,  by  kind  of 
attacker,  against  Blue  interceptors  in  the  air-to-air 
interaction. 

VRIDBA ( 2 ) 1 
TYR 

Average  detection  parameter  for  Red  interceptors,  by  type, 
against  Blue  attackers  in  the  air-to-air  interaction. 

VBADRI(4) 1 
INDB 

Average  detection  parameter  for  Blue  attackers,  by  kind  of 
attacker,  against  Red  interceptors  in  the  air-to-air 
interaction. 

All  air-to-air  detection  parameters  are  averaged  over  target  type  and  are 
a function  of  shooter  type. 


Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


SUM,  PROD, 
xi,  X15 

Working  variables  for  computing  attritions. 

RATS1 

Red  attack  sorties  per  notionalized  air-to-air  ccmbat 
region  on  Blue  side  of  FEBA  (RATS1=RATS/XNBAA) . 

BITS1 

Blue  intercept  sorties  per  notionalized  air-to-air  combat 
region  on  Blue  side  of  FEBA  (BITS1=BITS/XNBAA) . 

BATS1 

Blue  attack  sorties  per  notionalized  air-to-air  combat 
region  on  Red  side  of  FEBA  (BATS1=BATS/XNRAA) . 

RTTS1 

Red  intercept  sorties  per  notionalized  air-to-air  combat 
region  on  Red  side  of  FEBA  (RITS1=RITS/XNRAA) . 

The  following  10  variables  are  computed  only  if  the  second 
air-to-air  attrition  method  is  used: 


PR0D1,  PR0D2, 
XI,  X15,  X2, 
DENOM 

Working  variables  for  computing  attritions  in  second 
method . 

BSENG (2,3) 
TYB, MSB 

Blue  attack  sorties  engaged  by  Red  interceptors,  by  type 
of  Blue  aircraft  and  attack  mission  only: 

1 - CAS;  2 - ABA. 

RSENG (2,2) 
TYR,MSR 

Red  attack  sorties  engaged  by  Blue  interceptors,  by  type 
of  Red  aircraft  and  attack  mission  only: 

1 - CAS;  2 - ABA. 

BPENG(2) 

TYB 

Proportion  of  Blue  intercept  sorties  engaged  that  are  of 
type  TYB: 

1 - GP;  2 - SP. 

RPENG(2) 

TYR 

Proportion  of  Red  intercept  sorties  engaged  that  are  of 
type  TYR. 

[End  of  variables  for  second  attrition  method] 


BSKAA (2,3) 
TYB, MSB 

Blue  sorties  killed  in  the  air-to-air  interactions,  by 
aircraft  type  and  mission. 

RSKAA (2,3) 
TYR,MSR 

Red  sorties  killed  in  the  air-to-air  interactions,  by 
aircraft  type  and  mission. 

Variable  Name, 
Dimension  Limits, 
and  Indices 


Definition 


BSEB(2,3) 

TY,MS 

Blue  sorties  that  fly  back  to  Blue  airbase  and  do  not 
attempt  to  deliver  ordnance  (BSFB(TY,3)=0;  the  whole 
array  is  zero  if  the  first  air-to-air  attrition  method  is 
used) . 

RSFB(2,3) 

TY,MS 

Red  sorties  that  fly  back  to  Red  airbase  and  do  not 
attempt  to  deliver  ordnance  (RSFB(Tf,3)=0;  the  whole 
array  is  zero  if  the  first  air-to-air  attrition  method  is 
used) . 

SRB 

Working  variable,  equal  to  the  maximum  of  1.0  and  the 
appropriate  Blue  sortie  rate. 

SRR 

Working  variable,  equal  to  the  maximum  of  1.0  and  the 
appropriate  Red  sortie  rate. 

BAKAA (2,3) 
TY,MS 

Blue  aircraft  killed  in  the  air-to-air  interaction,  by 
aircraft  type  and  mission. 

RAKAA(2,3) 

TY,MS 

Red  aircraft  killed  in  the  air-to-air  interaction,  by 
aircraft  type  and  mission. 

BAFB(2,3) 

TY,MS 

Blue  aircraft  that  fly  back  to  Blue  airbase,  by  aircraft 
type  and  mission. 

RAFB(2,3) 

TY,MS 

Red  aircraft  that  fly  back  to  Red  airbase,  by  aircraft 
type  and  mission. 

BSL(2,3) 

TY,MS 

Blue  sorties  lost  to  enemy  SAMs  (ground-to-air  interaction) 
by  aircraft  type  and  mission. 

RSL (2,3) 
TY,MS 

Red  sorties  lost  to  enemy  SAMs  (ground-to-air  interaction), 
by  aircraft  type  and  mission. 

BAL(2,3) 

TY,MS 

Blue  aircraft  lost  to  enemy  SAMs  (ground-to-air 
interaction),  by  aircraft  type  and  mission. 

RAL(2,3) 

TY,MS 

Red  aircraft  lost  to  enemy  SAMs  (ground-to-air  interaction) 
by  aircraft  type  and  mission. 

Air-to-Ground 

(Airbase  Attack)  Interaction — Blue  Airbases 

BSHEL 

Number  of  Blue  shelters  (recomputed  each  day) . 

BAVUL(4) 

KBA 

Blue  aircraft  vulnerable  to  enemy  ABA,  by  kind  of  Blue 
aircraft,  not  including  QRA. 

Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


ABQRAS 

Number  of  sheltered  Blue  QRA  aircraft  (QRA  are  given 
priority  in  sheltering) . 

ABQRAN 

Number  of  nonsheltered  Blue  QRA  aircraft. 

BSHEL1 

Blue  shelters  remaining  after  QRA  aircraft  are  sheltered 
(zero  if  ABQRAN  > 0.0). 

BAVULT 

Total  Blue  aircraft  vulnerable  to  enemy  ABA,  not  including 
QRA. 

bpops(4) 

KBA 

Population  of  sheltered  Blue  aircraft  (i.e.,  number  of 
aircraft),  by  kind  of  Blue  aircraft,  including  QRA. 

BPOPNS ( 4 ) 
KBA 

BTOTS 

Population  of  nonsheltered  Blue  aircraft. 

Total  sheltered  Blue  aircraft  (=  £ BPOPS(KBA)). 

KBA 

BTOTNS 

Total  nonsheltered  Blue  aircraft  (=  £ BPOPNS(KBA) ) . 

KBA 

BTOT 

Total  Blue  aircraft  vulnerable  to  ABA  (=BTOTS+BTOTNS) . 

PRABA(2) 

TYR 

Red  ABA  aircraft  passes,  by  type  of  ABA  aircraft: 
1 - GP;  2 - SP. 

RATP 

Red  attack  total  passes  (=PRABA(1)  + PRABA(2)). 

VRDBS 

Average  detection  parameter  for  Red  against  Blue  shelters. 

VRKBS 

Average  kill  paramater  for  Red  against  Blue  shelters. 

VRDBNS 

Average  detection  parameter  for  Red  against  Blue 
nonsheltered  aircraft. 

VRKBNS 

Average  kill  parameter  for  Red  against  Blue  nonsheltered 
aircraft . 

Q 

Proportion  of  Red  passes  to  attack  Blue  shelters  (the 
remainder  attack  Blue  nonsheltered  aircraft) — computed  if 
IRABA=2  or  4. 

The  following  variables  are  computed  only  if  Red  uses  area  fire 
(IRABA=4) : 


Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


b4an 

Average  area  covered  by  a Red  "anti-nonsheltered" 
munition . 

B4AS 

Average  area  covered  by  a Red  "anti-shelter"  munition. 

B4NS 

Average  reduction  factor  when  Red  "anti-nonsheltered" 
munitions  are  used  against  shelters. 

B4SN 

Average  expansion  factor  when  Red  "anti-shelter"  munitions 
are  used  against  nonsheltered  aircraft. 

NTN 

Number  of  iterations  of  Newton's  method  to  find  optimal  Q. 

The  following  working  variables  are  used  to  hold  inter- 
mediate results  in  the  attrition  calculations: 

Red  Attack  Mode  1:  TEEMS  1,  XS,  TERMS2,  TERMN1,  XNS,  TEEMN2. 

Red  Attack  Mode  2:  CSO,  CNO,  CS1,  CS,  CN1,  CN,  Cl,  QO,  Q,  CS2. 

Red  Attack  Mode  3:  T,  TERM1,  TEEM2,  TEEMS,  TEEMNS. 

Red  Attack  Mode  4:  X4N,  X4S,  X4NS,  X4SN,  AIN,  A2N,  A OB,  A3,  A4,  A1S,  A2S, 

A2,  A5,  A6,  XO,  XI,  QO,  NTN,  Ql,  Q,  TEEMS,  TEEMNS,  and 
the  arithmetic  statement  functions  Fl4(Q)  and  F24(Q). 

The  results  in  all  cases  are  the  following: 


BAKS 

Blue  sheltered  aircraft  destroyed. 

BSHELK(90) 

ID 

Blue  shelters  destroyed  on  day  ID. 

BAKNS 

Blue  nonsheltered  aircraft  destroyed. 

Airbase  Attack — Red  Airbases 


RSHEL 

Number  of  Red  shelters  (recomputed  each  day). 

ravul(4) 

KBA 

Red  aircraft  vulnerable  to  enemy  ABA,  by  kind  of  Red 
aircraft,  not  including  QRA. 

ARQRAS 

Number  of  sheltered  Red  QFiA  aircraft. 

ARQRAN 


Number  of  nonsheltered  Red  QRA  aircraft. 


Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


RSHEL1 

Number  of  Red  shelters  remaining  after  QRA  aircraft  are 
sheltered . 

XS 

Indicator  for  sheltering  of  Red  SP-ABA  aircraft: 
0.0  - do  not  shelter;  1.0  - shelter 
(XS=1-IR3SH) — also  used  later  in  routine. 

RAVULT 

Total  Red  aircraft  vulnerable  to  ABA  that  can  be 
sheltered,  not  including  QRA. 

RPOPS ( 4 ) 
KRA 

Population  of  sheltered  Red  aircraft,  by  kind  of  Red 
aircraft . 

RP0PNS(4) 

KRA 

Population  of  nonsheltered  Red  aircraft,  by  kind  of  Red 
aircraft . 

RTOTS 

Total  sheltered  Red  aircraft  (=  £ RPOPS(KRA)). 

KRA 

RTOTNS 

Total  nonsheltered  Red  aircraft  (=  £ RPOPNS(KRA)) . 

KRA 

RTOT 

Total  Red  aircraft  vulnerable  to  ABA  (=RTOTS+RTOTNS) . 

PBABA(2) 

TYB 

Blue  ABA  aircraft  passes  by  type  of  ABA  aircraft: 
1 - GP;  2 - SP. 

BATP 

Blue  attack  total  passes  (=PBABA(1)+PBABA(2) ) . 

VBDRS 

Average  detection  parameter  for  Blue  against  Red  shelters 

VBKRS 

Average  kill  parameter  for  Blue  against  Red  shelters. 

VBDRNS 

Average  detection  parameter  for  Blue  against  Red 
nonsheltered  aircraft. 

VBKRNS 

Average  kill  parameter  for  Blue  against  Red  nonsheltered 
aircraft . 

Q 

Proportion  of  Blue  passes  to  attack  Red  shelters — 
computed  if  IBABA=2  or  4. 

The  following  variables  are  computed  only  if  Blue  uses  area 
fire  ( IBABA=4 ) : 


Variable  Name, 
Dimension  Limits, 
and  Indices 


Definition 


R4AN  Average  area  covered  by  a Blue  "anti-nonsheltered" 

munition. 

R4AS  Average  area  covered  by  a Blue  "anti-shelter"  munition. 

R4NS  Average  reduction  factor  when  Blue  "anti-nonsheltered" 

munitions  are  used  against  shelters. 

R4SN  Average  expansion  factor  when  Blue  "anti-shelter"  munitions 

are  used  against  nonsheltered  aircraft. 

NTN  Number  of  iterations  of  Newton's  method  to  find  optimal  Q. 


The  following  working  variables  are  used  to  hold  inter- 
mediate results  in  the  attrition  calculations: 


Blue  Attack  Mode  1 
Blue  Attack  Mode  2 
Blue  Attack  Mode  3 
Blue  Attack  Mode  4 


TERMS1,  XS,  TERMS2,  TERMN1,  XNS,  TERMN2. 

CSO,  CNO,  CS1,  CS,  CN1,  CN,  Cl,  QO,  Q,  CS2. 

T,  TERM1,  TERM2,  XS,  XNS,  TERMS,  TERMNS. 

X4N,  X4SN,  X4NS,  X4S,  AIN,  A2N,  A OB,  A3,  A4,  A1S,  A2S, 
A2,  A5,  A6,  XO,  XI,  QO,  NTN,  Ql,  Q,  TERMS,  TERMNS,  and 
the  arithmetic  statement  functions  Fl4(Q)  and  F24(Q). 


The  results  in  all  cases  are  the  following: 

RAKS  Red  sheltered  aircraft  destroyed. 

RSHELK(90)  Red  shelters  destroyed  on  day  ID. 

ID 


RAKNS 


Red  nonsheltered  aircraft  destroyed. 


Aircraft  Destroyed  and  Final  Measures  for  Day 

XS  Proportion  of  sheltered  aircraft  killed  in  the  ABA 

interaction — used  for  apportioning  destroyed  aircraft  by 
kind  of  aircraft  (redefined  for  Red) . 

XNS  Proportion  of  nonsheltered  aircraft  killed  in  the  ABA 

interaction — used  for  apportioning  destroyed  aircraft  by 
kind  of  aircraft  (redefined  for  Red) . 
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Variable  Name, 

Dimension  Limits, 

and  Indices  Definition 


BAD (4, 90) 
KBA,ID 

Blue  aircraft  destroyed  on  day  ID,  by  kind  of  Blue 
aircraft . 

RAD(4,90) 

KRA,3D 

Red  aircraft  destroyed  on  day  ID,  by  kind  of  Red  aircraft 

BAF(90) 

ID 

Blue  air  firepower  (i.e.,  successful  CAS  firepower) 
delivered  on  day  ID. 

RAF(90) 

ID 

Red  air  firepower  delivered  on  day  ID. 

BF(90) 

ID 

Blue  total  firepower  (ground  plus  successful  CAS) 
delivered  on  day  ID. 

RP(90) 

ID 

Red  total  firepower  delivered  on  day  ID. 

FRBR 

Force  ratio  of  Blue  to  Red  firepower. 

FRRB 

Force  ratio  of  Red  to  Blue  firepower  (=1/FRBR). 

DFEBA 

FEBA  advance. 

DFOBA 

Negative  of  FEBA  advance. 

KEBA(90) 

ID 

FEBA  position  at  end  of  day  ID. 

PBDID 

Percept  Blue  divisions  destroyed. 

BDD(3,90) 

KBD,ID 

Blue  divisions  destroyed  on  day  ID,  by  kind  of  Blue 
division. 

PRDID 

Percent  Red  divisions  destroyed. 

RDD(3,90) 

KRD,ID 

Red  divisions  destroyed  on  day  ID,  by  kind  of  Red 
division 

CBF(90) 

ID 

Cumulative  Blue  ground  plus  CAS  firepower  delivered  to 
date. 

CRF(90) 

ID 

Cumulative  Red  ground  plus  CAS  firepower  delivered  to 
date. 

CBAF(90) 

ID 

Cumulative  Blue  CAS  firepower  delivered  to  date. 

Definition 


Variable  Name, 
Dimension  Limits, 
and  Indices 


CRAF(90)  Cumulative  Red  CAS  firepower  delivered  to  date. 

ID 
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IV 


Chapter 

PROGRAM  LISTING 


A.  PROGRAM  MAIN 


PROGRAM  MAIN( INPUT i OUTPUT, TAPES* INPUT, TAPP^.OUTPUT) 
L OPTSA  II 

CDIJOHEG 

COMMON  NKqn,NKRU,NKBA,NK«A 
COMMON  NIO 

* COMMON  NPn,IOLl»lD!Jl.IDL2,IDU?,ir)L3*TDU3 

W COMMON  IRO,JRO,KRO 

COMMON  I PRV , I PRU 

Common  ireplb* ihepir 

COMMON  BDA (3*90) ,RDA<3,90) 

COMMON  BAA (4,90) ,RAA (4,90) 

Common  dbora.Orora 


COMMON  Snr^B (90) , ShELR<90) ♦ PRSHEL fPHSHEL 
COMMON  RSHELK (90) ,RSHELK(qO) 

COMMON  F80  ( 3 ) ,FH0(3)  *FBA(?)  ,FrA(?) 

COMMON  IU«SRC , iursrc 

COMMON  SOPRBl (2*3) ,SORRr2(2,3) ,SORRRl (2*3) ,$ORRR2(2,3) 

Common  iaa  ,xnraa, xnhaa,balpha ,rAlpha (2,?) 

COMMON  BI ora (2,4) fBAURI (4,2) .RlORA (2,4) *RA0BI (4,2) 

COMMON  RIKRA (2,4)  , R AKR I (4f2),RlKRA{2,4) » RAKR I (4,2) 

COMMON  BSAM7R (2*2) ,RSAM78(2,2) 

COMMON  IRi5h,ReBaC1 *HfPaC2*RFRAC1 ,°FRaC2,F8Sk,FrSk 
COMMON  BRASS (2) *RPASS<2) 

Common  ib ara, irAba, xnrar ,xnrar,bpark,rpArk 

COMMON  BOPS ( 2 ) ,BORNS(2) ,8«RS{?) ,RKPNS(2) 

COMMON  RDR5 ( 2 > ,Nn9NS ( ? ) ,RkBS<?)  ,RKRNs(2) 

Common  R4B »B4Al *B4*N1 ,B4An2,B4*si tR4AS2,R4NSl *B4NS2,R4SN1 ,B4SN? 
COMMON  R4R,R4Al,P4AN1 ,R4AN2,R4ASl *R4AS2 , R4NS1 , R4NS2 , R4SN1 , R4SN? 

COMMON  EPS4 

COMMON  NFRFA,FRh A(15) ,FA()5) 

Common  nfr9D,frBo (i5) f Ro ( \ 5) 

COMMON  NFRRDiFRKo (15) ,Rn ( 1 5) 

COMMON  NB,NR 

Common  pb (2o*3) ,pr (20,3) 

COMMON  PROPR (3,3) ,PR0PR (3,3) 

COMMON  MOE»MOET 

Common  bcwut*rswgt (3> ,«owgt (2>  *rCwgt,rswgt(3) ,rqwgt<2) 

COMMON  GVa 

COMMON  U( 11*11)  *SUR< lltl  1,11)  , SUB (ll, 11*11) 

Common  vm.ii)  *svR(U,ntli)  ,svp(ii,n*in 

COMMON  W(ll,ll)  *RWh(U)  ,SWR(11)  ,V*luE 


COMMON  RDI  (3*90)  ,ROI <3»90) 

Common  boo (3*9o) ,rdO(3,9o) 

COMMON  HGE  ( 90 ) • rGF(Vo) 
common  Bat  (4*9p)  fRAl (4*90) 
common  ral>(4*9o)  *rad u*r0) 

COMMON  BAF (90)  , RAE  (90) 
COMMON  BF (90) , «F (90) 

Common  fera(9oj 

COMMON  CBF (90) *CRF (90) 


COMMON  CBAF (90) *CRAF (90) 


CDUpfcNO 

CALL  CLRCOM ( 1 * 1 *90) 

CALL  read 


MAIN 

00002 

main 

00003 

MAIN 

0Q004 

main 

00005 

main 

OOOQ6 

main 

00007 

MAIN 

00008 

main 

00009 

main 

00010 

main 

0001  1 

main 

0Q012 

main 

00013 

main 

00014 

MAIN 

00015 

MAIN 

OQ016 

MAIN 

00017 

MAIN 

00018 

m*in 

oooi* 

MAIN 

00020 

main 

00021 

main 

0Q022 

MAIN 

00023 

main 

00024 

main 

00025 

MAIN 

00026 

MAIN 

00027 

main 

00028 

MAIN 

00029 

MAIN 

00030 

MAIN 

00031 

main 

00032 

MAIN 

00033 

main 

0QD3A 

main 

00035 

MAIN 

0003$ 

MAIN 

00037 

mMn 

0003* 

MAIN 

00039 

MAIN 

00040 

MAIN 

00041 

mAin 

00042 

main 

00043 

MAIN 

00044 

MAIN 

00045 

IftL 

MQ46 

MAIN 

00047 

MAIN 

mMn 

0OQ4g 

0004* 

main. 

JJQ050 

MAIN 

00051 

main 

OOQ52 

MAIN 

00053 

MAIN 

00054 

MAIN 

00055 

main 

00056. 

MAIN 

00057 

M*IN 

Q0Q58 
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oi  o>r-n  r>>no 


II5L1.T 
IOUUIOl?-! 
inu2«  ion-i 
I DU 3 »N 10 

iteration  loop  can  go  mere 


CALL  CLRCOM (2« 1 f 90) 

i P ( npo  ,Eo.  i)  call  simpL3U*i> 
iF(npd  .eq.  2)  call  simplz<i*i> 

IF { NPD  .EO.  3)  CALL  SlMPLl 


ITERATION  LOOP  Can  go  here 


99q9  CONTINUE 
END 


Mi In  00«59 

M*IN  OOP** 

MAIN  00041 

NMN  00**g 

MAIN  0***3 

■WIN  000*4 

MAIN  00045 

MAIN  000**  _ 

main  oo**t 

main  f Hi 

MAIN  0004* 

MAJN  00070 

MAIN  00071 

MAIN  0HT2 

MAIN 
MAIN 
MAIN 


00073 

00*74 

00075 


B. 


SUBROUTINE  CLRCOM 


SUBROUTINE  CLRCOM ( icl* iol» IDu) 

CDUPUIM 

COMMON  NKBP,NKRO,NKBA,NKRA 
Common  nio 

COMMON  NPn,IDLl»lDUl.IDL2,IOU2,IOL3*IOU3 
COMMON  IR0»jRO»KR0 
COMMON  |PRV1IPRU 

Common  irEplR, ireplr 

COMMON  BOA (3<9Q) ,rOA (3,90) 

COMMON  BAA(4*90> *RAA<4*90) 
common  dbora,drura 

Common  shelB(9o> ,shElr(90) »prshel*prshel 

COMMON  BShELK ( 90 ) *RShpLK(pO) 

COMMON  FBD (3) «FHD (3) »FBA (?) »FRA (?) 

COMMON  I DRSRC , 1 UrsrC 


Common  SOPRBi (2,3) ,S0RRR2(2,3) iSORRH) (2,3) ,SOPRR2(2,3) 

COMMON  IAA  ,XnBAA,XnrAA,BaLPHA (2,2) ♦ RA^PHA ( 2 , 2 ) 

COMMON  Bl ORA (2,4) , BADRI (4,2) , Rl DRA (2 ,4) »RAOBI (4,2) 

Common  bikra<2,4) ,bakri (4,2) ,rikba (2,4) ,rakBi (4,2) 

Common  Bsamzr (2*2) ,rsam7B (2,2) 

COMMON  J83SHtBFKACljBFRAC2,RFRACl,pFRAC2,FBSK,ER$K 
COMMON  RPASS (2) *RPASS (?) 

COMMON  lBABA,IRApA,XNBAR#xNRAR,BpARK,RpARK 
COMMON  80RS(2) ,BDRnS(2) ,BkrS(?) ,RKrNS(2) 

COMMON  RPBS (2) tHDBN$(2) ,rkB3 (2) i RKBNS (2) 

COMMON  R4B,BaAL,B4An1 ,B4An2,BA*S1»r4AS2,r4ns1 »BANS2,B4SN1 ,B4SN? 
COMMON  R4B,R4AL,R*ANI tR4AN2,R4ASl ,R4AS2,R4NSJ ,R4NS2tR4SNl ,&4Sn? 
COMMON  EPS4 

COMMON  NFRFAtFRFA(15) .FA  < l5) 


common  nFrbd,frbd(i5) ,sn c i s> 

COMMON  NFRRPiFRHDilS) ,RDll5) 

COMMON  N8,NR 

COMMON  PB  (20,3) »PR (20.3) 

Common  propB (3,3) ,propr (3,3) 

COMMON  MOe.mQET 

COMMON  BCWGTtBSWGT (3) ,BQ*GT<2) ,RCWGT ,RSWQT (3) ,RQWGT (2) 

Common  GyA  


COMMON  U(  11,11)  » SUB  (1 1,1  1 , 11JaSUS.11  1 • 1 1 » 1 1 1 
common  V(U,H)  ,$vR( U,il,ll>  ,svr(U,h ,U> 

COMMON  W()i,ll)tSKB(ll)  ,SwR(U)  ,VALUE 

COMMON  BDT  (3f9Q) Rfll. <2i9QU 
Common  boo ( 3,9q) ,hpd ( 3,90) 

COMMON  BGF (90 ) . RGEl9fll 
COMMON  8AT (4 *90) ,RAI (4 »90) 

Common  bao(4,9q) ,rad ( 4 , 90 j 
common  BAF(90) , RAF(9fl) 

COMMON  BF ( 90 ) # rF<90) 

COMMON  FERA { 90 ) 

COMMON  CBF(9Q)  tCRF l9 Oj^ 


common  cbaf (9o> »Craf (9q) 


coupoim 

JLEA1CL  ■6Ta„ lJ  „GQ  10  5 
00  100  1*1,90 
Do  1 0 1 J»1 , 3 


CLRCOM 

MAIN 

M*In 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

M*In 

main 

MAIN 

MAIN 

MAIN 

main 

main 

MAIN 

main 

main 

main 

main 

main 

MAIN 

main 

main 

MAIN 

MAIN 

MAIN 

M*In 

MAIN 

MAIN 

MAIN 

main 

MAIN 

MAIN 

main 

MAIN 

MAIN 

M*IN 

MAIN 

MAIN 

MAIN 

main 

main 

MAIN 

main 

main 

main 

MAIN 

m*  In 
main 

MAIN 

CLRCOM 

CLRCOM 

CLRCOM 

CLRCOM 
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00006 
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HD A ( J* I) *kO ft { J* I ) *HAA  < J*l ) *RAA ( J* I) * p. 0 
l«l  CONI INUF 

HA  A (Ail)  =RAA  (4*1)  sO.O 

loo  continue: 

DO  102  J=  1 * 3 
FBU ( J) *FHU( J > *0 • 0 
DO  1 0 3 n*1,2o 

PH(N*J)=H^(Kf j)=0«o 
io3  com  i nuf 
ln2  CONTINUE 

DO  1 0 A 1 3 1 i 1 H 

FRFA ( I>  sf  A ( i ) *M-aO(I) ( I ) *FRNO ( I ) *«n ( I ) *0  # o 
In*  CON7INUF 

DO  lob  K*  1 * 2 

HPASS(N)=HPASb(K) aFBA (K) =F«A (K> =0.0 
HSAM£H{K»i)*HbAPZR(Ki2>*0,0 
RSAM?o  (k»  1 ) «HbAKi:9(K*2)  =0.0 
DO  106  1*1  * 3 

SORRRl (KiL) *SUHPH2(KiL) =SOR«Rl  t K t L) *5DRRR2 < K . U *0 . 0 
l^b  CONTINUE 
ln5  CONTINUE 

5 CONTINUE. 

IF ( ICC  .6!.  2)  GO  TO  6 
DO  ?02  J*1  * 3 

DO  203  1*1*3 

PHUPH(I*J>  * HHOPR(ItJ)  * 0 • 0 
2o3  CONTInUF 
2h  2 CONTINUE 

6 CONTINUE 

DO  30.)  1*10L«  lOu 

no  3o 1 j«i 1 3 

HDI  (J»I)*HAJ  (JtI)aPDlU*I)  3 RM(JiI>  3 O.u 
BDD ( Ji I ) ( J* I ) =PDD< J* I)  * HAD(JiT)  * O.U 
3^1  CONTINUE 

8 AD ( 4 * I ) * RAl  (4*1)  * RAD  ( 4 * I ) = R A I ( 4 * I ) * 0.0 

HGF  ( 1 ) *BAF  ( 1 J ( T ) *CHE  ( I ) *CHAF ( I ) *0 .0 
HGF(I)  sRAF(I)*RF  <T)*CRF(I)*CpAF(n«O.C 
SHEL8U)*bHELMl>*  0*0 
HSHELMI)*RSHtLK(l)«  .0 
FEHA ( 1 > *0.0 
3o0  CONUnUF 
RETURN 
END 
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ClwCOM 
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CloCom 
ClrCi-m 
CloCOm 
Cl»Com 
ClrCuM 
clrc  ■ »m 
CloCOm 
CtttCOH 
ClrCum 
CloC  iM 
ClqCUM 
CloCOm 
ClpCOM 
Cl»Cum 
CLOCOM 
ClmC-'m 
ClRCOM 
ClbC^m 

Clrc  *m 
CluCum 
CloCOH 
ClrCuM 
CLRCOM 

clpcom 
ClrCom 
ClpCi  m 
ClrCuM 
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00U12 
0 0U 1 3 
OflUl* 
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0 0 0 1 P 
00017 
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00029 
0003U 
00031 
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c 


SUBROUTINE  READ 


SUBROUTINE  REAR 
(_  OPTS  ft  II 

CDUOUIM 

COMMON  NKRD.NKRU.NKRA.NKRa 

Common  nIO 

common  NPn,IOLl»U)Ul,inL2,lOU?,inLltTOU3 
COMMON  IRP.JRO.KRO 
COMMON  IPRV.IPRU 

common  ireplb. theplr 

COMMO-'  BI)A  (3.90)  *RnA(3*90) 

COMMON  RAA (4,90) .HAAU.QO) 

COMMON  OBQRA.DRURA 

COMMON  SHEUB(90) ,ShELR<Q0) tPHSHEL ,PWSHEL 
COMMON  BSHELK (90) tRSHELK (qO) 

Common  frh { 3) ,FRD(3)  »fra(?),frA{?) 

COMMON  IQrSRC . IUBSRC 

COMMON  SOORBl (2*3) *SORRB2(2,3) * SORRR 1 (?*3) .SDRRR2 (2*3) 

COMMON  I A A ,XNflAA.XNHAA*BALPHA (2»?)  *RALPHA (2.?) 

Common  r I n« A (2,4) .BAJpl (4,2) .rIDBa (2,4) iPADRl (4.2) 

COMMON  RIKRA  (2,4) , R A NP I (4,2)  ,RlKBA(2,4) .RAKBt (4.2) 

COMMON  BSAMZRI2*?) ,RSAM7R(2.2) 

COMMON  IRISH .BFRAC1 .HFRAC? *RFpACl .pFrAC2.FBSK.FRSK 
Common  Rrass (2) *RPASS (?) 

COMMON  I BARA.  iRABA.XNqAR.XNRAR.BPAPK.PPARK 
COMMON  RODS  ( 2 ) ♦ MORNS  ( 2 ) ,RK«S(2)  fRKRNM2> 

Common  rOHs<?)  .RDRnS<2>  ♦ RkrS  ( ? ) »RKRNc;(2) 

COMMON  R4B.B4AL.B4AN1 .84AN2.B4AS1 .R4*S?,B4NS1 ,B4NS2,B4SN1 ,R4SN? 
COMMON  Q4B,R4AL.R4AN1 .R4AN?,R4AS1 .R4AS2.R4NS1 .R4NS2.R4SN1.R4SN? 

common  epsa 

COMMON  NFRFA.FRF  A (15)  .FAM51 
COMMON  NFPRn.FRbn ( 1 5) .RH ( 15) 

Common  nFbro.frho ( 15) .»n ( i 5) 

COMMON  NR. NR 

COMMON  PR (2o*3) »PR(2u.3) 

COMMON  PROPR ( 3.3) .RROPR ( 3, 3) 
common  MOE.mOET 

COMMON  BCWGT  »BS*GT (3) .BO^oT  (2) »RCWOT .RS*GT (3) .RQWOT (2) 

COMMON  GV A 

COMMON  <J  (11.11)  . SUB  ( 1 1 .1 1 .11  ) * S l)R  (11,11.11) 

Common  v ( i l . i l ) «$vR ( i i ♦ i l ♦ n ) ,svr  < U ,11  # ill 

COMMON  W ( ] 1 , 1 1 ) »SWr ( ] \ ) , sw" U 1 ) . VALUF 

c 

COMMON  BOT (3.90) , ROT (3.90) 

COMMON  BOn (3.9q) .ROO(3.90) 

COMMON  8GF (90) . ROF (90) 

COMMON  BAI  (4  |90>  ,RAI <4»P0) 

common  had (4,9o) #rao (4,qo) 
common  raf  (ro)  . raf<9o) 

COMMON  BF (90 ) . WF  (90 ) 

COMMON  FEB  A ( 90 ) 

Common  crf <9o ) ,cpf (9  n 

Commos  CBAF  (Rr))  *CrAF  (9q) 

C 

COljoOIM 

integfr  ty.tvi 
1U  FORMAj(Bllo) 


READ 

read 
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MAIN 

MAIN 

M*In 
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READ 
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"20rfDRWAT'MFio.'O> — “ read 


2 1 

format (8Fl 0 . 1 ) 

READ 

FORHAj ( 8F1 0 ,2 ) 

?3  format (8fio. 3) 

read 

read 

J£n  1 

format (8fToT5) 

FORMAT (XH  «4F 1 0 ,5) 

read 

read 

3n2 

. 3j)3 

FORMAT ( 1H  , 2F 1 0 , 5) 
FORMAT ( LH  i3f 10 .4} 

READ 

read 

3n4 

C 

FORMAT (1H  ,2F10.4) 

Read 

read 

r>  0 

1 

l 

1 

TAPES 

read 

READ 

T 

MIT  - 5 

read 

read 

c 

MOT  ■ 8 

READ 

READ 

c 

c 

CAMPAIGN  DESCRIPTION 

read 

read 

1010 

write  (Rot  ,1  OTO ) 

format  < 2 1 h 1 NKHo,NKRntNK9A,NKRA) 

read 

read 

READ  (MIT, 10)  NK80,NKRD,NkBA,NKRa 
WRITE (MOT» 10)  NKBD,NKRD,NkBA,NKRA 

read 

read 

T 

WRiTe (MOT , 1020) 

read 

read 

io?o 

FORMAT  ( 5H0  Nil)) 
READi  MlTjlft)  Nio 

read 

read 

c 

WRITE  (MOT, 10)  NlD 

read 

READ 

READ ( M I T » 10)  Npo, IDL2, InL3 
WRITE(MqTi1030) 

READ 

READ 

1030 

FORMAT(1HO»13HNPO,IDL2,IOL3 
WRITE ( MqT  « 10)  NP0.lDL2.7DL3 

) 

read 

read 

C 

r£A D ( m IT,  ip)  I R(LuJr0 j *R0 

READ 

read 

lO40 

WRITE (MOT  , 1 040 ) 
PORMATUHo,llHlRO,JHOfKRo 

) 

READ 

READ 

C 

WRltE(M0T,  10)  iRQfJRO.KRO 

read 

READ 

READ  (MIT « 10)  iPRVtlPRi! 
WRITE (MQt.1060) 

READ 

read 

10*0 

~foRmaT(iho.  9HIPRV,IPRU 
WRITE(MQT,  10)  1PRV»I.PRU 

) 

Read 

READ 

C" 

READ(MIT,  10)  IR£PL«aR£PLR 

read 

READ 

1070 

WRITE (MOT, 1070) 

Format (iho,13h1rEplb,irEplp  j 

READ 

read 

C 

WRITE(M0T,  10)  IREPLB, IRfPLR 

read 

read 

C — • 

c 

FORCES 

READ 

read 

WRITE (MOT  *2010) 

20 1 0 FORMAT  (lSHl  BOAiKRD.ID)) 

read 

READ 

DO  210  K0D*1 ,NKBD 

READ  (MIT.21)  (bDA(KBD.IDi iID»ltNID) 

Read 

read 

210 

WRITE (MOT. 21)  (BOA(KBO.ID) , ID.I.nID) 

read 

READ 

2020 

WRITE (MOT*20H0> 

FORMAT.  (13H0  RPA(KRD.TD)  ) . ... 

read 

READ 

oooot 

00008 

00009 

00010 
00011 
00012 
POO  13 
000 1 A 

00015 

00016 
00017 
0Q018 

00019 

00020 
00021 
00022 
00023 
0Q02A 
00025 
00028 

00027 

00028 
00029 
0Q030 

00031 

00032 

00033 

o o 034 

00035 

0003* 

00037 

00Q3B 

00039 

00040 

00041 
000*2 
00043 
0Q044 

00045 

00046 

00047 
00046 

00049 

Q0Q5Q 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 


r>|r'  o 


t)C  KRHsl  iNKKD 

RtAU  ( M I T f 21 ) (KDA(KHn,|Di  f ID.UnIH) 

??0  WH I Te  < MOT ,21 ) («DA(KMn,ID) *ID*l*Nin) 

c 

WHITE (HOT, 2030) 

2010  FORMAtt  13HQ  BAA(KBA,ir>)) 

DO  23p  KB A a 1 * NKB A 

READ  ( M I X *^0  > (0AA(KBAj tn) * lO*lfNln) 
230  WR I TE ( MOT, 20)  (BAA ( KRA  , 10 ) , iO«1#nIO) 
C _ 

WRITE (MOT, 2040) 

2040  FORMAT(  1 3H0  RAA(KRA»IO)) 

Do  24n  KRA«l,NK«A 

READ  C_  HIT f20)  (RAA(KRA,ID) *ID"1,NI0) 
240  WRITE  ( MOT, 20)  (RAA(KR4,lD) 1 1 D"1 »NID) 

C 

READMIT,  2\)  DbORa,ORDRa 
WRITE(HOT,2100) 

21  0 0 EOHMAT  (1HO,UHDBQRA,ORQRA 
WRITE(M0T,  21)  08QRA , DRQrA 
C 

READ(MIT,  20)  RBSHEL 
WRITE (Hot, 2110) 

21)0  FORmaT(1ho,  6hRrShEL 
WHITE (mOT ,20)  PBSHEl 
C 

Read  (m"it#  20)  prShel 
WHITE (MQT,2120) 

?1?Q  F OHM  A T ( 1 H 0 » 6HPRSHEL 
WHITEJMOT,  20)  PRSHEl 

FJREROwER  0CORES--GROUNO  A^O  AIR 

WRITE (MOT ,3010) 

30 1 0 FORMAydoHl  FBD(kBD)) 

HEAD  xMlIill)  (FRD(KbO) ,KRO«ltNKBD) 
WHITE (MOT, 21 ) (F0D(K8m , KrD«1 , NKRD) 

C 

WHITE  (MOTf3020) 

3o?o  format ( 1 OHO  FRO(kHD) ) 

HEAD  (MIT. 21)  < FHD ( KRD ) , kRD« 1 * NKRD ) 

WRITE (MOT j21 ) (FRD (KRD) ,kR0«1 tNKRD) 

C 

HeaD(MIT,  2B)  (FBA(KBA) *kBA»1 ,2) 
WRITE (MOT, 3030) 

3oio  format (1ho.i8h(fba (kba) >k8a=i,2) 

WHITE (MOT,  2?)  (FBAjkBA) ,kBAhi,2) 

c 

READ(MIT,  25)  (fra (KRA) »kRA*1 »2) 

WRITE (MOTj1040)  

304 0 ToHMAf UHo*1BH(FRA(KrA) ,kRA«i»2) 
w R I I£XM 0T  2 5 ) (.FRA  ( *R A L* KRA_*  1,2) 

C 

C SOHTI&  RATFS 
C 

_ R£.AO.( MJ  T , JLQA-  JL  D B 5 R C *J  D R S_R C 
WRITE (MOT, 2130) 

2110  FORMAT (lH0.13HlDBSRCj  H)RSRC 
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00065 

read 

0JL066 

READ 

00067 

READ 

00068 

read 

00069 

read 

ooqTq 

READ 

OOOTl 

REA& 

00QT2 

read 

00073 

READ 

00074 

read 

00075 

read 

00076 

read 

000*7 

read 

01078 

read 

00079 

read 

100*9 

Read 

00081 

read 

00082 

) read 

00083 

RE*JL_ 

00084 

READ 

00085 

REAP 

00086 

~rE*o~ 

ooo*^ 

) READ 

IftQBS 

READ 

00089 

READ 

QOO’O 

read 

00091 

RE_AD_ 

00092 

) READ 

00093 

REAO 

10Q9* 

read 

00095 

READ 

00096 

read 

00097 

read 

000*9 

READ 

QOlOtt 

read 

ooioi 

READ 

0Q102 

READ 

00103 

READ 

00105 

read 

00106 

read 

00107 

REAP 

IfllO* 

RE»0 

00109 

1 Jt£}C 

lOllQ 

READ 

00111 

READ 

00113 

READ 

00114 

) read 

00115 

-READ. 

QQl  16 

read 

00117 

READ 

00118 

REAO  00119 


c 


1D8SHC*  JDrSRC 


READ (MIT t 23)  < (SORRRl ( Ty *H$) , MS«1 *3 > * TV-1 *2) 

WRITE  (HQT >214Q) _ 

2U0  F0RMAM1H0*31HI  (SqRHRI  (Ty*MS)  ,MS-1  #3)  *TY«1,2) 
WRlTC_lW0t»3j)3)  J_LSOHRB^(xYjM5 L±M$- IjXD  tv ■ 1 .2) 


REAOtMlT,  23)  ( (SQRRR2f Ty»MS^ ,MS.1*D  .TY.1,2) 

WRITE(*0T,2150) 

2150  FORM A T ( 1 HO  , 3 1 H ( ISQRRB2(Ty j M ILi  H S ■ 1 itT ■ 1 # 2 ) 

WRiTe  (HOT ,303)  ( ( SqRRB2 < TY ,MS) , MS. 1,3) #TY«1,?) 

READ  (MI T,  23)  ( (SORRR1 (TVf MS) ,M5«l *3) ,TY«1 *2) 

WRITE  (HQT«2l60) 

2160  FORMAT  ( 1 HO  * 3 1 H ( (SORHR1  (Ty,MS)  ,MS.l *3)  ,TY.1,2) 

^ WRITE  (WOT >303)  ( (SQRRRl  (TY iHS)  ,M3al^im»l  1 2 ) 

REAOtHlT,  23)  ( (SQRRR2(TYfHS)  i HS.j  >3) 

WRITE (HOT  *2170) 

2110, _FMM KIUMSLaJUM i (SQR«R2ITyjHS)  iHSiUTblTil  *2) 
WRITE (MOT ,303)  ( (S0HRR2 (TY , MS) ,MS«1 ,3) , TY«i ,?) 


C AIR  TO  AIR  PARAMETERS 
C 

READ (MIT,  10)  I A A 

WRITE (MQT  «22QQ)  

22n0  FORmaT(iho*  3hUa 
WRITE(MQT,  10)  IAA 


REA0(MIT.  21)  *NBAA»XNRAa 
WRITE ( HOT  1 22 1 0 ) 

2210  Form  Atuho.IIh  xj*b  aa,xnrM__ 
WRiTe(M0T,  21)  xnbaa,xnr*a 


READ(MIT,  23)  ( (8ALPHA(TY»MS) .MS«1»2) ♦TY»1,2) 

WRITE  (Mqt.2220) : 

2220  FORMAT  C 1M0  *3 1 H ( ( B ALPHA ( Ty . MS) #MS«1 »?) ,TY«i ,?) 
__  WRTTF fHQT.302)  I ( B ALPHA (tY, MS) ,MS»1«2) .TYil.?) 
C 


READ (MIT » 231  { ( RALPHA ( Ty tMS) iMSa U-21  *1 Y*l,2> 

WRI TE ( MOT ,2230 ) 

2210  FORMAT  (1H0« 3 1H(  (RALPH*  t TY1.M&1  1 m «TYj1^2) 

WRITE  (M0",3  ~ 


,302)  ( (RALPHA (TY, MS) ,mS.1,2) iTY«1 ,2) 


READ (MlTf  25)  I (BIDRA (TVlvKAT) ?KATal «*) «TY!«1 «2> 

WRITE  (HOT. 2310)  __ 

2310  F^RMAM1H0*3AH  l (BIOfiA  (TYj  ,kaT)  fKAT“l  f 4>,TYl«i  ,2) 
WRITE  (MQT , 30 1 ) _ ( (BlDRA  (TV I >KaT)  ,)<A.TH^»HIYJj1j2) 

READ  (Ml  T , 25)  ( 1 B I K!lAlT Yj , * A.T liK  A T * 1 , 4 ).,T Y I«l  ,2) 

WRITE (MOT • 2320 ) 

2 3 Format (1H0.3A h ( (Bikh a (tytiK aT) ,k* x» u 41 * t yJji * 21 

WRiTe (MOT, 301 ) ( (BIKRA(TyI,KaT) ,KaT.1,A),TYi.1,2) 


C _ - 

READ(MIT,  25)  ( (BADRI (KAtiTYI ) ,TYI»1 ,2) ,KAT«1 fA) 

WRITE (HQT ,2330) 

2330  FORMAT ( 1H0*34H( (BAORl (KATiTYj) ,TYTb1 ,2) ,K*T«i ,4) 
w RITE  (MQT ,302)  ((BAPRI(KATtTYl)  tTYl HaKA Ta l_i*i 
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RE*n 
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) read 
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) read 

00142 

read 

00143 

READ 
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) read 
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READ 
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read 
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oai62 

read 
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) read 

00164 

read 

00165 

READ 

00166 

read 

00167 

j*ead 

00168 

) Read 

00169 

READ 

00170 

READ 
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READ 

00172 

READ 
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) read 

0 0174 

READ 

00175 

READ 

00176 

read 

00177 

read 

oal7® 

) read 

00179 

READ 

0016Q 

C 
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tr>*oio 


REAOtMlTf  25)  ( {BAK«I (KAt*TYI> ,TYI«lj2) tKAT«lf4) 

WRITE (HOT, 23*0) 

234  0 FORMAT (1H0|34H( (BAKKI (KAT,TYi) ,TYI«1*2>  *KAT*1,4> 
WRITE (MOT. 302)  { (BAKRI (KaT.TyI) #TY1*1,2) .KAT»1*4) 

C 

REAL)  ( Ml T * 25)  ( (RIDbA (TVltKAT) ,KAT«1*4) *TYI«1,2) 

WRITE (MOT. 2350) 

2350  FORMAT ( 1M0.34H( (RIDBa (TYI .KAT) ,K*T*1 *4) ,TYl»l*2) 
WRITE (MOT, 30 n ( (RIOSA (TyI.KaT) jKAT.I ,4) ,TYI«1*2) 
C 

READ(MIX»  25)  ( (RLKRA(TYI.KAT)  »KAT"1*4)  ,TY>l|2i 

WRITE (HOT  *2360 ) 

23*0 FORmaT(1H0.34H(  (RIKBA(TYj,KAT)  *KAT"1j4>  »TYI»j,Z) 

WRITE (MOT • 301)  ( (RIKRA (TyI*KaT) ,KAT»1 ,4) *TYI«1*2> 

C 

READ (Ml T , 25)  ( (RADB J (KAT* TYJ ) ,TYI*1 *2) . KAT«1 *4) 

WRIJE  LMOT.2370L 

2370  FORMAT  (1  HO*  34HURADBI  (kAt»  TYI)  ,TYT«1  *2)  *KAT«i,4) 
WRtTe (MoT^302)  ( (RAORI (K*T,TyI) ,TYl*lf2) ,kAT»1j4) 

c 

READ  (MIT*  25)  ( (RAKBI  (K^tTYJ)  .TYIfJ  *2)  fKAT«L*^> 

WRITE (MOT .2300) 

23R0  FORMAT (1H0*34H( (RAKHI (KAx»TyT)  *TTl“ij2>  *KAT»1j4) 
WRITE (MOT, 302)  ((RAKfU  (KaT.TyI) *TYl«l*2) ,KAT«l»4) 
C 

c 5am  parameters 

c „ 

read (M IT. 23)  ( (BSAM2R (TY.MS) .MS«1 ,2) *TY«1.2> 

JKR|TETMOT*2410) 

24)0  FORMATflHO,  31H  ( (BSAmZr  (tY,MS)  ,M5«1 .2)  *TY«l  ,2) 
WRITEJMOT1304)  I (RSAMZR (Ty*mS) *TY*1,2L 
C 

RE  AO ( M I Tj  23 ) _i(RSAMZ8 (TY.MS)  , 

WRITE (MOT. 2420) 
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) ?E AO 

READ 

00185 

read 

0jQl  86 

read 

00167 

RE*D 

00188 

) read 

00189 

read 

00 190 

READ 

00191 

READ 

0019? 

read 

00 1*3 

) read 

M194 

READ 

00195 

read 

00196 

read 

00197 

RE  AC 

CQ19I 

i read 

00199 

READ 

00201 

REAP 

0Q202 

READ 

00203 

) READ 

C02QA 

READ 

00205 

read 

OQ20*_ 

Read 

00207 

read 

READ 

00209 

READ 

0 021  p 

) read 

00211 

El  AC 

0H211 

READ 


"WRlTf  (MoT*3o4)  ( (RSAmZB(Ty*MS 

"aba  parameters 

Read it .10 ) 1 r 3 sh 

WRITE (H0T*244q) 

2440  FoRRaT(1ho.5HIk3Sh) 

JR3SH 

c 

REAP  (Ml T t 23)  BFRAC1.BFRAC2 
WRITE (MOT, 2450) 

2450  Format  (Iho.ishbfrac^bfraCi 
~~ write  (mot*  23)  bfrac'i  ,bfpac2 

c ___  

READ (MIT « 23)  HFRAC1.RFRAC2 

WRITE (MQT .2455)  _ 

2455  FOBmaTIihO. 13HMFRAC1 ,RF«aC2 

WBIT£.{MOTa_23}  RFRACIjRFrAC^ 

c 

RE  AD ( MJ T * _23 ) F£Sk * FRSk „ 

WRITE (MOT *2460) 

2450  Format tlHQf  9hfbskjFpsk  


00213 


■ .2) * TY«1 ,2)  1 

READ 

read 

00215 

00216 

,2) *TY«1,2) 

read 

00217 

READ 

REAC 

00219 

00220 

read 

read 

00221 

QQ222 

read 

READ 

00223 

00224 

RE*0 

»E«L 

0022® 

00226 

1 

read 

read 

00227 
_ 0022* 

READ 

READ 

0Q229 

08230 

READ 

read 

00231 

JU123Z 

"T 

read 

BEAD 

00233 

00234 

read 

0023® 

) 

read 
re  a d 

0Q237 

C021® 
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c 

WHITEfKOT*  23)  FBSkTFRSk 

RF*D 

READ 

00239 

99240 

00241 

0fl242_ 

READlMIT,  22)  (BPASS(TY) ,TY.1.2) 
KRITE|M(?t,2A70) 

READ 

J*E*0 

2470 

FOHmaT(1H0,18H(BPA^(TY)  (TY.lf2) 
WRITE<MQT.  22)  jBPASS(TY) ,TY»l,2i 

) 

READ 

read 

read 

read 

RE*D 

READ 

READ 

00243 
99244 

00245 

00246 

00247 

00248 

00249 
0025Q 

“C 

READlMIT,  jgj (RPAS5(TY).TY.1,2) 

2475 

WRITE(*0T,Z*75) 

ffl*;M*lllHO«l»HlRPASS(TY)  .TY.1,2) 

l 

C 

^ITEIMOT,  22)  (RpaSS  ( TV)  ,TY.1,2) 

READ (M IT, 10 ) iBABAtlRAB* 
WRlTC(H0T»2476)  18ABA 

READ 

read 

00251 

00252 

2476 

^R ITE (MOT  *2477)  IRABA 

FORMAT (1Ho,42HIBaBA— BLUE  ATTACKS  RED  AIRBASE 

USING  MODE, 15) 
USINO  MoDE.TS) 

READ 

READ 

00253 
_ 00254 

00255 

00256 

00257 
0025B 

247  \ 
C 

TorHAT  (lHo*42HtRABA  — rEO  ATTACKS  BLUE  ATrBAsE 

read 

READ 

READ  (HIT  t TH  TnS*B*xNRAb 
WRITE (MOT ,2480  > 

read 

REAp 

T48C 

F6RM1T ( 1 HO  , 1 1 HXNBAB  * XNRTB 
WRITE (MOT < 21)  XNBASjXNRaB 

) 

READ 

READ 

00259 

OQ260 

C 

READ (HIT.  21)  BpARKtRPARK. 

READ 

READ 

00261 

00262 

2499 

WRITE (HOT  *2AR0) 
roRMATdHD.llHBPARKiRPARK 

■ } 

read 

READ 

noj*i 

00264 

C 

WRITE (MOT . 21)  BPARK.RpArK 

READ 

READ 

H0265 

□ d26A 

READ (MIT ,25)  BdRS,8dRN$,BKRS.8KRnS 
WRITE (MOT ,2524) 

READ 

READ 

DO  267 
Dp26B 

WRlTC(MOT»2525)  BDRS 

WRlTg(MQT.2S26)  1DRNS 

READ 

HO  249 
D0276 

■5rIt1(MOt,252T)  Ws 
WRITE (MOT  t?328)  BKRNS 

READ 
READ 

no2Ti 
n 0272 

252J 

25^5 

FORMAT (1H0,5X,6X,4HB  OP  ,2X,BH B SP  ArA  ) 
FqRH*T (1H  ,5HB0r5  t2Fip.5) 

read 

head 

00273 

hosts 

2526 

252j 

1 FORMAT ( 1 H , 5HBDRN5 # 2F1 0 • 5 > 
Format (ih  ,shb*rs  ,2fiq.b) 

Read 
_ _J>E*0 

252* 

FoRmAT(1H  ,5HBKrNS.2Fio,3) 

READ 

_ E02M  _ 

READ (MIT  *25)  RDBS*RDBNS*RKBS.RKRNs 

WRITE (MQT.2S29) 

HEAD 

IFIft 

0027? 

cn2afl 

WRITE (MOT .2530)  ROBS 

WRITE (MOT. 25311  RDBnS 

READ 

HEAD 

002»1 

nn?ft2 

WRITE (MOT, 2532)  «K8$ 

WRITE (MQT.2533)  RkBnS 

READ 
. HEAD 

00283 

.00284 

2529 

2530 

FORMAT (1H0.5X,6^,4HR  OP  ^X.ShR  Sp  Ara  ) 
FORMAT ( 1H  .5HRDRS  .2F10.K) 

read 

READ 

00285 

0Q2B6 

2531 

2532 

Format ( ih  ,5Hrubn$,2fio*5) 

■FORMAT (IH  ,5HRKbS  *iFl0.5) 

READ 
REAP 

00287 

QQpflfl 

2533 

C 

Format ( i h ,shrkbns,2fio.5) 

READ 

00289 

C j 

J 

area  fiRe  parameters 

READ  00291 

REAn A A?Q?  _ 

READ (MIT ,21 ) 

1 B4B.844l.B4An1.B4AN?.B4As! *R4AS2^B4M51aB4NS2.B4SN1. 

REAP 

B45N2  -READ. 

00293 

0fl?94 

WRITE(MOT,2610> 

261?  FORMAT  UHOi 

Read 

READ 

00295 

00294 

* 


52 


T 56HB4B  ,B4AL/B4ANrrB4*N?,B4ASl  ^sr.HTNSl 7WN5?,W5N  1 ,'H«RT)  IE1 D 0 ijJflT 

WPItE(MQt«26iS)  _ ftEAO 

1 RA8*B4AL*B4AN1 ,B4AN2,B4A5l »R4AS2,B4NSl *B4N$2,B4$Nl ,B4SN2  WEAD  e&?99 

26i5  FORMAT  (1H  *F15±1jF1 0 14  t4jr 1 p,  1 • 4F  Ip  #4)„  _ _ Hgifl  flH 

c *I*D  4 1311 

Readmit, 2i)  _ bea&  t am  | 

1 R4B,R4AL,R4ANl,R4AN2f«4ASliR4AS2,R4NSlfR4NS2fR4SNlfB4SN2  READ  01)303 

WRITE t MOT, 2620) P^AD  AflSfl4 

format  umo,  read  nom* 

_56HR4BtR4ALiR4ANl«R4AN2.R4ASl»R4ASgtR4NSltR4N$2iR4SNl,R4$^  READ  DA3H6 

00307 


26?0 

i_ 


WRlTF<M0Tt2615> 

1 _R4BtR4»L>R4Am>R4*N2>R4ASl*_R4A§2tR4NSlJR4NS2tH 

C 

REAp.tM.lTt  25  > EPS4.. 

WRITE (MOT, 2630) 

26^0 Format (1HQ,4HEPs4> 

WRITE (MOT, 25)  EpS4 


FUNCTIONS  FOR  FEaA  ADVANCE  AND  DIVISION  DESTRUCTION 


READ 

READ  00309 

READ  00311 

READ  0o3l2 

read 

j* ead_ 


WRITE (MOT, 3410) 

34 1 o format ( 2imo  nfrFa,frfau)  .fa<i)  > 
*ead  (mTT , io ) nFrfa 
WRITE (MOT. 10)  NFRFA 
R'ETF  (1^1  f , 2 2 ) ( FrF  A < I ) , I • i * nF rF A ) 


read 

REAP. 


READ 

REAP 


WRITE (MOT, 22)  (FPFA(I) ,!■! tNFRF  A ) 
REAO  (MIT,21)  (Fa ( I ) • I«l *nfrfa) 

WRIT Ej_M 0 Tx21  ) l£M_n  *I»l  *iLFRFA) 

: 

WRITE (MQt  >3420 ) 

34?0  FORMAT ( 2 1 HO  NFRBp , FRBd ( 1) , BD ( I ) ) 

REAO  (MIT. 10)  NFRBP 

WRITE (MOT, 10)  NFRBD 

READ  (MIT. 22)  (FrBD ( I ) , lyliNFRBpi 

WRITE (MOT, 22)  (FrB0( I ) , I»\ iNFrBO) 
READ  (MlT,23)  (BD(I)  »I»1>nFRBD), 

WRITE (MOT *23)  (BD ( I) * 1*1 • NFRBD) 


W^iTe  (MOT , 3430 ) 

3430  FORMAT(21HO  NFRHptFRHD ( I ) ,RD ( I > ) 
READ  (MIT, 10)  NFRRO 

WRtT| (mOT,101  NFRRo  _ 

READ  (MIT, 22)  (FRRD (I) * I«f iNFRRD) 
WRITE (MOT, 22)  (^RRO(I) f I»1»NFrRD) 
‘PIaO  (MIT, 23)  (RD(I) il»l tNFRRn) 
WRITE (MQT ,23)  (Rp  < I ) » !■! ,nFRRq) 


C — - 

z 


STRATEGIES  by  ALLOCATION  rY  MISSION 


WRITE(MOT,4005)_ 


4on 5"  format ( thi  nb,nr) 

REAP  (MIT. 10)  NB.NR 

WRITE (MOT, 10)  NB,NR 


WRITE (MOT, 4010) 

40)0  FORMAT  ( 22H0  PB  ( IBA,  HS1_^  MS»1i311 
DO  410  IBA*1,NB 

_ READ  (MIT, 23)  (PfidBA,  MS)  t M S-L.D 


READ 


READ 

M*o 


read 

REAP 


READ 


REAO 

READ 


READ 

-READ.. 


READ 

mail 


READ 

READ 


READ 

*E*D 


READ 

read 


read 

READ 


rTO 

REAP 


READ 

.READ- 


READ 

MAD- 


READ 

-READ 


READ 

MAD 


READ 

-READ- 


00313 

00314 


00313 
JO  3 16 


0Q317 

m*. 


00319 

mzo 


00321 

0Q323 

0O32A- 


00325 

00326 


00327 

00329 

D033Q 


00331 

1Q332 


00333 

00334 


00335 

-HH6- 

-00336- 

00339 

-Jft3AJL- 


00341 

M2A2- 


003A3 

00344- 


00345 

00346  - 


00347 

00346- 


00349 

-0(1350- 


00351 

00352 


00353 

50354 
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410  WRITE (MOTYST)  (PtfCTB*,  m5j t Ms«l,3) 

read 

00355 

C 

read 

00356 

wkjTe  (MOT  ,4020) 

Read 

00357 

4 0 ? 0 FORMaj(22HO  PRdRA,  MS)  , mS«1,3)> 

read 

00358 

00  *20  IR4«1,NR 

reao 

00359 

READ  ( M I t , 43 ) f PR ( IRA  # MS)*  Ms«l,3) 

read 

00380 

42?  I T E < MOT  , 23)  <PR(lRA#  mS>  , mS»1,3) 

Read 

00361 

C 

READ 

00362 

? — - MEASURE  OF  EFFECTIVENESS 

READ 

00363 

c 

read 

00364 

WRITE  (MOT, 5010) 

READ 

00365 

SOiO  FORMATUOHl  MOEfMOET) 

read 

00366 

READ  ( M 1 T * 1 0 ) M0E*M0ET 

read 

00367 

WRITE(MOT.lO)  MUF f moet 

READ 

00368 

c 

read 

00369 

C WEIGHTS  for  Mot  4 AND  MOf  5 

read 

00370 

c 

read 

00371 

READ  f MlTj  2^)  bCWQI 

read 

00372 

WRITE (MOT, 5110) 

read 

003T3 

51 1 0 FORMATimo^  5HBCWQT 

) REAO 

00374 

WRITE (MOT , 23)  BCWGT 

READ 

00375 

C 

read 

0Q376 

READ(MIT*  23)  (BSWGT (MS) ,MS*1 ,3) 

READ 

00377 

WRITE (MQT*5l20) 

read 

00378 

5120  FORMAT (1H0*18H(RSWGT (MS) ,MS.\,3) 

) read 

00379 

WRJTELMOTj,  ?3>  (8$WGT(MS)  *MS*1,3) 

READ 

00380 

c 

READ 

00381 

READ ( M It  * 23)  (ROWGT(I) »I«1,2) 

read 

00382 

WRITE (M0Ti5130) 

read 

00383 

5130  FORMAT <1hq,16H<BQ*gT (I) *1*1,2) 

) Read 

0 0 3 8A 

WRITE(MOT,  23)  (BQWGt(I) ,I»1,2) 

REAn 

00385 

C 

READ 

00386 

READ(MIT#  23)  RcWgT 

Read 

00387 

WRITE (MOTjSI 60) 

read 

00388 

5iao  format ( i ho , shrcwgt 

) read 

00389 

WRItEtMQT,  23)  J^CWGT 

read 

00390 

C 

read 

00391 

READ(M1Tj  23)  (RSWGT (MS) ,MS«1 ,3) 

read 

00392 

WR 1 TE  ( MOT , Si  To ) 

read 

00393 

5170  FORMAT (1M0, IBM (RSWGT (MS) .MS«1 ,3) 

) READ 

00394 

WRITE (MOT • 23)  (RSWGT(MS) ,MS.1,3) 

READ 

00395 

C 

read 

00396 

READMIT,  23)  (RQWGT(I) ,I«1*2> 

READ 

00397 

WRITE (MQT  t51 80) 

REAO 

00398 

siflo  format  1 1 ho , 16H <rqwgt < i j , i«i .?) 

> read 

00399 

WRITE(M0T,  23)  (ROWGT(I) *I»1,2) 

read 

00400 

C 

read 

00401 

READ (Ml T ( 20)  GVA 

read 

00402 

WRITE (MOT, 5300) 

read 

00A03 

5300  FORmaT(iho,  3HGVA 

) READ 

00404 

WRITE(M0T,  20)  GVA 

read 

00405 

C 

READ 

00*06 

c 

Read 

00407 

999*  CONTINUE 

read 

00408 

RETURN 

read 

00409 

END 

READ 

0Q410 
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D. 


SUBROUTINE  SIMPL1 


SUBROUTINE  SIMPL1 
CDUPUIM 

COMMON  NKBD.NKRL>tNKBAtNKRA 

Common  Nin 

COMMON  NPn,IOLl*IOUl,iDL2,IDU?f IOL^iID'J3 
COMMON  IRo,JRO,Kro 
COMMON  JPRV.IPRU 

common  irfplr*iheplR 
COMMON  BDA(3,90) ,RnA<3,90) 

COMMON  BAA  (4,9n)  ,RAA (4,90) 

Common  obqra,Orqra 

COMMON  ShflB (90) ,ShELR(90) . PRSHEl , PKSHEL 
COMMON  BSHELK  (90)  ,RSHELK (90 ) 

Common  fbo  (3) »fkD  n) ,fba (?) ,FrA (?) 

COMMON  IOrSRC*TURSRC 

COMMON  SORRB1 (2*3) ,SORR«2(2»3) *SORRKi (2*3) tSORRR2(2*3) 

COMMON  IAA  ,XNBAAtxNRAAtBALPHA(2.2) .rALPhA(2,2) 

Common  BIOrA  <2,4) ,BAOri (4, 2) ,rIO&A (2t4) ,RA08l <4,2) 

COMMON  3 I kR A (2,4)  tBAKRj  (4,2)fPlKRA(2,4)  .RAKBl  (4»2> 

COMMON  BSAMZR (2*2) »«SaM7B (2,2) 

COMMON  IR3SH,BFHAC1,HFRAC?,RFrAC1 ,RFRAC2,FRSKfFRSf^ 

COMMON  BPA$S<2) tPPASS(Z) 

COMMON  IBABA.  lRARA,XNRAR»xNRAR*BPAPKtRPARK 
common  bdr s ( 2 ) .Borns ( ?) ,»kRS(?> .Rkpns(2) 

COMMON  RDrS ( 2 ) »wDBnS(2) ,RkBS(2> ,RkrnS(2) 

Common  R4Bf 64A{_*R4AN1 ,B4AN2,B4AS1 *R4AS2,B4NS1 .B4NS2.R4SN1 ,B4SN? 
Common  R4B,R4A|_,r4Ani »R4*N2»R4ASi * R4AS2.R4NS1 tR4N52,R4SNi ,R4SN? 

common  EPS4 

COMMON  NFRFA.FRF A ( 15) |FA ( 1 5 ) 

COMMON  NFRBD.FrBO ( 15) .Rn ( 1 5) 
common  nFRRO.FRHo (15) »Rp ( 15) 

COMMON  nb,nr 

common  PB { 2 0 » 3 ) »PR(20,3) 

Common  PRr»P0<3,3)  *PR0PR(3f3) 

COMMON  MOE.MOET 

COMMON  BCWGT,HS#GT (3) ,ROtf^T (2) .RCWRT ,RSWGT (3) . RQWGT ( 2 ) 

COMMON  GVA 
C 

COMMON  U(lltll)  •SUBMlilltll)  tSURdltiltll) 

COMMON  V(U ,11) »SVB(1 1 .11*11) »SVR(1 1,11*11) 

COMMON  * ( 1 1,1  1)  *SWr (1 i ) ,SW?<1] ) ,V*lUF 
L 

COMMON  HOI  (3*9Q) fROI (3,90) 

Common  9un(3,90) ,RDD(i,90) 

COMMON  RGF  (90) , RGF(90) 

COMMON  BAI  (4,90)  ,RAI  (4,90) 

Common  bad (4, 90j f rad (4,9oj 

COMMON  B AF  ( 90  ) • RAF(90) 

Common  BF  (V0) # rf ( 9Q ) 
commqn  feba<90) 

COMMON  CRF  190) ,CRF (90) 

Common  CBaf  (9o) ,craf (9n> 

c 

CDIJDOIM 

DIMENSION  IHAS(20) t IRAS (?0) tI8AS 10(20 ) f A$ (20,40) ,C5  (40) ,BS (20) 
DIMENSION  X ( 20 ) , SUM (20) ,tBACT(2q) , IrACT<20) 

M0t*4 


SIMPL1 

MAIN 

main 

main 

MAIN 

MAIN 

MAIN 

main 

main 

M*In 

main 

MAIN 

M*In 

MAIN 

main 

M*In 

main 

main 

MAIN 

MAJn 

main 

MAIN 

main 

main 

MAIN 

MAIN 

main 

main 

main 

main 

main 

main 

M*lN 

MAIN 

MAIN 

MAIN 

main 

MAIN 

MAIN 

MAJN 

MAIN 

MAIN 

main 

main 

MAIN 

m*  In 

MAIN 
M * IN. 
MAIN 
MAIN 
main 
main 

SIMPL1 

SIMPL1 

SlMPLl 

SIMPJLL 


00002 


00003 

00004 

00005 

junior 
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“1FIIPHV  .TQ.  17 
J’ORmAt  < 1 hi  / > 


WRITE(MoT,T) 


00  723  1*1  » 20 

JR 

“S(D  *0.0 
I0ASU)  *I«AS 


DO  721 
CS(J) 


J*  1 *40 

0,0 


IBaStC (II  «n 


U • J)  ■ o • 0 
72l  CONTINUE 

T2T  continue 

00  731  i.i.ii 


~T&r 

731 


DO  732  J.1,11 

wUtJ>»0. 
CONTINUE 
CONTINUE 


FIRST  SETUP  OF  MATRIX 
IR*!P0 


IF  < I R 0 , EO,  0)  IR-1 
IraCt  < IR) -1 


c cohput^  payoff  Tntky  (lh.ir> 

C SET  ALLOCATION 

— 

DO  730  MS*  1,3 

PROPB (Ms. 1 ) m PRiLBfMSx 

PROPR(MStl)  * PR(IR,MS) 
. 720  CONTINUE 

\ i LTV.  * * * uu  1 1 

_CALj_  UMPL2(LB«IR) 


IF (LB  .EO,  1)  Bio*  * { l , I R ) 

— IF;.Wlk0_Ll|h  _^LL,  JBXOJL  50  TO  7.25 
72®  10 IG*  |_B 

BlG«  »<LB,IR) 


t>5  Continue 

c _ FIRST  TIME  SIMPLE*  HaTRtX  SfTUP 
00  790  1*1, Nb 

PJ^Cq,  WdBTG.lRw  GVA 

AS (1 • I > * ( W ( I • I R ) ♦ OVA ) /PI VCO 
-CS(n  » 1.  'AS(M)  


790 


CONTINUE 

LO.Nfl*a 


-ASX Uh 

Cs (No . 


UO/PlVCQ 


^sTNotl)  » 1,0/PlVCO 
_J^NEC*-I. O/PI  VCO 


BS ( 1 J ■ «X  NEC 


SET  ACTIVE  BLUE  *NO  REO  STRATEGIES  FIRST  TIME 


7*50 


DO  750  1*1, NR 

1B*S(P-  0 


X(I ) « 0,0 
IBAS(1)*IBI0 


I BASIC  c | j « YB J G 
X(IBIG),  1,0 


IR*$  ( 1 ) . 

PQ  791 


-75.1 


IRaS(I) *0 
- -CONTINUE 


IR 

-l»ZiNR 


SIMPLl 

SIMPL1 

SiMPu 

SIMPtl 

SIMPLl 

SIMPLI 

SIMPLl 

SIMPLI 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SJMPL1 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPL1 

SIMPL1 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLI 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLE 

SIMPLl 

SIMPLL 

SIMPLl 

SIMPLl 

SIMPLl 

_SIMRL1_ 


00607 
0Q008 
00009 
0001  0 

0 0 0 1 1 
00012 

0001  3 

00014 

00015 

00016 
00017 
0001B 
00019 
OQ020 
0002 1 
00022 

00023 

00024 

00025 

00026 

00027 

00028 
0002^ 

00030 

00031 

00032 

00033 
50034 
00035 

00Q36 

00037 

00Q3B 

00039 

OQ04O 

00041 

-00042 

00043 

00044 

00045 

00046 

00047 
00Q4B 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 
0Q05B 
00059 
OQO60 
00061 
00062 

00063 

00064 


n r>nrtn  no  o rfc  , n no  O 


-6v*t.Piveo 

NR0WS»NRAS«NBC*1 


general  LOOP  FOR  TESTING  total  FEASIBILITY 

OEtE RM I N F IF  CoNSTBATnT  IS  VTOL*T^O  FinO  MOST  VIOLATED  ONE 


CONTINUE 

IR«jRIG«IRAS ( 1 ) 

tNEt*S«o 
DO  2TQ  J* 1 * NR 

SUM(TR)»oVAL-GVi 
^rrtrB*CTrwn  *eu 


Oo  2*0 


■1 


• NB 


1)  GO  TO  7?0 


GR0lJp  ACTIVE  STRATEGIES  TqgETheR 
TT  ROW  already  has  BEEN  COMPUTED*  nffd  not  RECOMPUTE  entries 


LR*TRA$trt 

IFdBACrtLB)  ,Eq,  1)  Go  JO  259 


find  entry, set  allocation,  call  cam,  assign  to  w 

DO  ?55  MS«  1,3 
PR0PBTW5, I)  * RRTLB,MS) 

PROPR(Ms.I)  * PR ( J.MS) 

755  CONTINUE 

CALL  CAM (IDLl  ,IDU1) 

CALL  StWPL? (L«,  J) 

259  SUM(j)  ■ $UM(J)  * X(LB)*W(LBtj> 

760  CONTINUE 

261  I E ( SUM ( J j ,GE,  GVAL-GVA)  GO  TO  7TB 
tN^f *5«I 

IF (SUM ( J)  ,LT,  SUM(JRIO))  JBlG.j 

??o  Continue 

Oo  268  i«i.nrc 
LR«TRR5TI1 
IBACy ( L B ) *i 

260  continue 

IF(INFEAs-I)  271,272,27? 

?7l  CONyl  N(jE 

WHOLE  GAl*E  HAS  BEEN  SOLVED 

find  and  assign  optimal  rujE  and  ped  strAtfgifs 
if  desired  print  strategy  a^o  value 


VALUE"  ■ GVAL-GvA 
Oo  2701  J*1,NR 
7Tol  SWRTJ).  0.0 

00  2711  IrC*  1.  NRAS 
IR*5MRA$<IRC) 

SwR  { T R « S 1 ) * CS (N0*TRC) #GvaL 
2711  C0NTINuE 

DO  7712  1*1 , NB 

27 i H SW« ( I ) *x(l) 

wRlTE(M0T*407  > 

40T  FORMAT (IhI ,33HPAY0FF  MATRIX  FOR  gAMf  AT  STAGE  I > 
WRlTF (MOT.4O0)  ( IR*cT  ( T ) , 1*1 ,NR) 


SIMPLl 
SIHplI 
ST *PLi 
SIMPLl 
SIMRLT 
SIMPLl 
SIMPLl 
SIMPLl 
SIMPLl 
SIMPLl 
5TMPL1 
SIMPLl 
SIMPLl 
SIMPL! 
SIMPLl 
SlMpLl 
SIMPM 
SIMPLl 
SIMPLl 
SIMPLl 
SIMPLl 
SIMPLl 
5l*PLi 
SlMpLl 
SIMPLl 
SlMpLl 
SlMpLl 
SIMPLl 
SIMPLl 
SIMPLl 
SIMPLl 
SIMPLl 
SIMPL1 
SIMPLl 
SIMPLl 
SlMpLl 
SIMPLl 
SlMPLi 
5lMPLi 

simpl! 

SlMPLj 

SlMpLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SIMPLl 

SlMPLj 

SIMPL1 

SIMPLl 

sT«PLi 

SIMPLl 

SIMPLl 

SIMPLl 


00065 

00066 

mil 

0006* 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

000  ll 

00079 

00080 
00081 
000®2 

00083 

00084 

?0?86 

00087 

00088 
000B9 
OOO’O 

00091 

00092 

00093 

00094 

00095 

00096 

ooo!I 

00098 

0 6 099 
00100 
00101 
0 0 1 02 
8818? 

00 1 05 
00106 
00107 
00100 
00109 
OQllO 
00111 
00117 
00113 

8811$ 

00116 

mi 
00 1 1 9 
00120 
00121 

00122 
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4^«  FORMMUM  * 4X  * 1 1 1 1 } ) 

00  41u  I * l , .\ld 

WWlTE(MOTf409)  IRACT(l) * tw { I » J) * J*i ,Mk) 
forma h i h fi2*2x* l i f 1 1 • 3 > 

4 l 0 CONTINUE 

WRITE  <M0Ti41<*)  VAt_UE 
4iV  FORMAT < IHOt 13MUAME  VALUE  ,F15.Aj 

NP0M?*NPD-2 
WRITE (M0T*4?J)  nPDm? 

FORMAT (lH0»34HdLUE  AND  HFD  STRATEGIES  FnK  pfRIO!)»  13) 
WRITE (MOT»3o>  (SWR ( I » » 1*1 ,NW) 

WRI TE (MoT »3o ) (6WR ( I) • 1«] «NR) 

10  FOHMAT ( 1 H * 4 X 1 1 1 F 1 1 # 3 ) 

npdmi*npd- 1 

WR I TF  (MOT  ♦ 423  ) NPL)M  1 

DO  3100  LB*1«NH 
DO  3100  LR*1»NH 

IF(SwB(lB)  ,LE,  0 • ft  .OR.  SwH(LH)  ,[r,  0.0)  r,0  TO  Jloo 
WRI tf  (MOT  *11 > lb.lR 

11  FORMA  T UHOiPI  1 1) 

wR  I TE ( MOT i 3ft)  I bVR (LHtLR#L)  *L=) *NH) 

WRITE (MOT*3o)  (SVP<LBtlR,L>  *L«1 *NR) 

Hftl)  CONTINUE 
RETURN 

? 72  CONTINUE 

C 

C NEtp  MORE  MFD  STHAlEGlps 

c enter  jrIg  fop  hlo 

c 

NR  A S = NW AS+ ] 

1 R * Jrt  I G 
IRACT  (JBIG) a] 

IRAS  (NHAS) sjolb 
DO  2H0  Lo*i,ish 

C 

C COMPUTE  PAYOFF  EFlHY  <LR»IR) 

c get  allocation 

c 

IF  ( IRACT (LH)  .EC.  1 ) on  TO  280 
DO  2?B  MS*  1«J 
PROPM (MS*  1 ) * PH (LB  *MS) 

PR0PR(MS»1)  * PR ( TR  * MS ) 

278  CONTINUE 

CALL  CAM  ( IDL 1 » IDUl > 

CALL  5 I MPL? ( Ld  « I R ) 

?«0  CONTINUE 
C 

c assign  payoffs  ru  simplex  matri*  pivot  in  me*  constraint 
c pivoting  in  a mu* 

c 

NROW$*NRQ*S+ i 
DO  300  N=l*Nd 
C GIVEN  JhlG 

AS(NROws*K)s  -(  w(K*JHlG)  ♦ G V A ) 

3ft0  CONTINUE 

NRowmi *nROaS-1 
00  302  K=] , NN0*M1 

AS  (NRUWS  *NH*K)  s 0 . ft 


St*'PL1 

ooUJ 

8l«PLl 

00124 

S>TMPL1 

00125 

SjmPuI 

00126 

S>!wPL  1 

00127 

8l«PLl 

Ooi2H 

Si vPli 

00  1 2k 

st^pl i 

00\30 

STMPLl 

Oolil 

S I *>*  P L 1 

001 32 

Stmpli 

00133 

ST“PL1 

0 o 1 34 

S|mRl 1 

00lJ5 

gimmli 

30136 

St^muI 

00137 

ST^Pl  i 

Oo  l3h 

SImMli 

00l3i> 

St^Pl 1 

0 0 l 4 0 

SU'PLl 

Oftl*l 

Stmpli 

001*2 

s t *'PL  l 

0 ft  1 4 3 

5 1 pPL 1 

0 0 1 4 A 

Stmpli 

00l45 

SimPl 1 

00146 

Sl^PLl 

00  147 

SjwPL 1 

00148 

Stmpli 

ooiar 

StvPl 1 

onibo 

5 T * Pi,  1 

001S1 

Stmpli 

0old2 

StmPli 

00153 

ST‘'PL1 

Oft  1 54 

Sl^PLl 

00 1 5S 

Sp'PLl 

00156 

SjmPlI 

0015  7 

StvPli 

Oo  l5d 

Stmpli 

00  1 5k 

Stmpli 

00160 

Stmpli 

0016  1 

S T S'PI.  1 

Oo  162 

SimPlI 

0 015  3 

St^PLt 

Oo  1 6a 

S T m P l j 

OO  1 bS 

St^Pl) 

Oo  lfc6 

SlvPLl 

00157 

ST“Pii 

00153 

Stmpli 

0016k 

STmPLi 

Oo  1 70 

stmpli 

00171 

Stmpli 

00  l 72 

Sp-PLl 

00173 

Stmpli 

0017a 

Stmpli 

00175 

SimPlt 

00176 

StmPL1 

00177 

STMPLI 

00178 

MPLl 

0 o 1 7k 

Stmpli 

0 0 1 80 
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ffStK.fWNRO*ST  • 0*0 
3 nd  CONTINUE 

0S (NROWS) * -1.0 

AS <NROWS,Nfl*NROWS)  *1.0 
IBASIC (NROWS)  ■ N«  ♦ nROWS 
DO  30 1 J*  1 . nROWm 1 
L 

C PIVOT  OUT  VARIABLE  FROM  CONSTRAINT 
C 

iF(IRASlCiJ)  #^T.  Nb)  GO  TO  301 
IBAS1,  I*AS!C<J) 

PIVCO  * W[I8ASlf JBIG)  ♦ GVA 
NRL*  NB+nBO^HI 
00  304  I* 1 i NBL 

'AS(NROWS.I)  * AS(NROWS*t)*PlVCft«AS(j#I) 

3^4  CONTINUE 

a"5  (nPOW^T)  «B^(Nr0^S)  * PrvC0#BS(j) 

3*1  CONTINUE 

c 

C _ NOW  PIVOT  jro  RE-SOLVE  PROBLEM  USE  DUAL  SIMPLEX  METHOD 

r To  START  let  SLACK  IN  LAST  ROW  LE A VF  BASIS 
C SLACK  VARIABLE  iS  NEGATIVE 

r 

LEAVEl*NROWS 
“flnQ  CONTINUE 

C FIND  ENTERING  BASIC  VArIARlE 

itcol*nb+nrows 

inoic«o 

on  eoi  i«l,ltCoL 

IF (As(LEAvEltl)  «GE.  O.Ol  GQ  TO  *0l 

IFtlNDIC  .ED.  1)  GO  TO  8n2 

RENT*  CS1I1/A* [LEAVE1 *Il 

IENTER  * T 

JNUIC*1 

8^2  continue 

RATIO*  CEtI)/AS(LEAVEl*I) 

I F ( R A T 1 0 .LE.  RENT)  GO  TO  801 

JLE.NT£R  *I_ 

RENT  « RATIO 
Bn  1 CONTINUE 

C IENTER  IS  THE  VARIABLE  TO  ENTER  The  BASIS 
IRASIC  (LEAVEl ) * IENTER 
C"  PIVOT 

PIVCO*  AS(LEAV£l, IENTER) 

Do  *0^  I*1»ITC0L 

__  AS(LEAVE1  tI)  » aS<LEaVe_1  , I) /PIVCO 
I F ( I .EQ.  IENTtR)  GO  TO  «05 

CSUl  *CS(IJ  - AsaEAVEl,i)*CSU£NlER> 

8a5  Continue 

bsileaveh  « bsileaveij /pivco 

DO  003  J=l»NROwS 

LEiJ-  .EO,  LEAyEii  Gq  tQ  8fl3 

DO  804  I *1 . ITCOL 

1FJ1  IENTER)  go  TO  804 

AS(J.I)  ■ As<j, I)-AS(LEAVEl iI)*AS( J, IENTER) 

8*4  CONTINUE 

8S ( J ) * BS { J)  - BS(LEAVE1)*AS(J, IENTER) 

8r3..  continue 


SIMPLl 

SIMPLl 

00182 

00115 

SIMPLl 

_oni*4 

SIMPLl 

00185 

SIMPLl 

00186 

SIMPLl 

00188 

SIMPU 

00189 

SIMPLl 

00190 

SIMPLl 

_G0117__ 

SIMPLl 

001*1 

SIMPU 

0Q192 

SIMPLl 

00193 

SIMPLl. 

SIMPLl 

00196 

00195 

SIMPU 

$impli 

00197 

SJMPL1 

0^198 

SIMPLl 

00199 

SIMPLL 

00200 

SIMPLl 

00201 

SJMPU 

00202 

SIMPLl 

00203 

SIMPLl 

00204 

sTmplI 

002C5 

sjmpli 

00206 

SIMPLl 

00207 

SIMPLl  0020< 

SIMPLl 

00209 

SIMPLl 

00211 

-SIMPU 

Q0212 

SIMPLl 

00213 

SIMPLl  0021* 

SIMPLl 

00215 

SIMPLl  0Q216 

SIMPLl 

00217 

SIMPLl 

-00211 

SIMPLl 

0021* 

SIMPLl  00220 

SIMPLl 

00221 

SIMPU 

00222 

SIMPL1  00223 
5IMPU  00224 
SIMPL1  00225 
SlHPLl  00226 
SIMPL1  00227 
SIMPLl  00228 
SIMPL1  0022’ 
SIMP|_J  0Q230 
SIMPLl  00231 
SIMPLl  QQ23? 
SIMPLl  00233 

SIMPLl  00235 
SIMPLL  00236  _ 
SIMPLl  00237 
SIMPLl  00236 
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*nEO*neC-BS  (LtAVEl ) *C5  ( jENTeK) 

CStlENTER  ) *0.0 

00  806  J»l*NHo«S 

AS ( Jt TENTER)  m p.p 

806  CONTINUE 

_ ASJLEAVEl,IENT£R)  ■ Xafl 

Z l£ST  ^HS  For  FEASIBILITY FJND  MOST  NEGATIVE  ENTRY  To  LEAVE  BASIS 

c 

810  infea^.q 

TEST*  0.0 

DO  811  J«1«NRQWS 

IF (B3  < J)  ,GE,  0.0)  GO  TO  fill 
INFeaS»i 

IF40S ( J)  .GE.  TEST)  Go  TO  811 
TEST  ■ 8§{J) 

LE*VE1.J 

81 1 CONTINUE  __ 

IF(INFEAS-l)  840*800*800 


c feasible  solution  found 

C FINQ  ACTIVE  blue  STRA l£Gl£i 


a±<> continue 

GVAL*  -1.0/XNEC 

I0C«^  

DO  849  I ■ 1 * NB 

649 A(I)  *0.0 

Do  880  IR0*«1*NR0W5 

see  if  a Slack  variable  is  raSiq 

IF  ( I0ASIC  < IROW)  ,GT,  NB)  GO  TO  8&0 

TBC,IBC*i 

IBAsi  MBAS  i IBO.IB ASIC  < IpO*) 

X 118*5  Hi BSlIROM*..G_VA_L  . 

B80  CONTINUE 

NBC»IBC 

GO  TO  2600 

END 


SlMRLl 

SIMPL1 

SIMPCl 

SIMPL1 

SIMPL1 

SIMPLI 

SIMPL1 

simpli 

SJMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SJMPLI 

simpli 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPL) 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

simpli 

SIMPLI 

SIMPLI 

SIMPLI 

SIMPLI 

simpli 

SIMPLI 

SIMPLI 


00239 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00248 

00249 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00258 

00259 
Q0260 
00261 
QQ262 
00263 
002*4 

00265 

00266 

00267 

00268 

00269 

00270 

00271 

00272 

00273 

00274 

00275 
*0276 


SUBROUTINE  SIMPL2 


SURROUTInf  SIMPL?UB*IR) 

CDUPUIM 

COMMON  NKRQjNKRU,NK0A,NKRa 

common  nio 

COMMqm  NPO.I0Ll»I[)UlflOL2,I0U2,lDL3»IDU3 

COMMON  IRo,JRo,KRO 

COMMON  IPRYiIPRU 

common  irfplb, ireplr 

common  RDA{3i9Q) ,RDA(3,90) 

COMMON  RAA (4.90) , RAA (4*90) 

Common  dbqra,drura 

common  ShflB  (90)  , ShELR  ( 90 1 »PBSHEl,pMSHEL 
COMMON.  BSHELK  ( 90 ) » RSH£LK  (gO ) 

Common  Pboo)  » fro ( 3 ) « f 9 a ( ^ > , fqA ( 2 ) 

COMMqn  IDRSRCf IURSRC 

COMMON  SORRB1 (2*3) ,SORRR2 (2,3) fSORRM? (2,3) ,SORRR2(2,3) 

COMMON  I A A , XNRaAixNRAA1BALPHA (2,?) tpA^PHA (2,2) 

COMMON  BlnRA(2f4,,RA0RI(4,2)fRlDRA(2,4),RADBI(4,2) 

COMMON  BlKRA(2f^,BAKR|^{4J2)  fRlKBA(2t4)  tPAKBl  (Ay  2) 

COMMON  BSAM2R(2,p)tRSAMZB(2, 2) 

COMMON  IP3SH,RFHACi,BrRAC2,RFRACltRFPAC2,PBSK,FRSK 

COMMON  BPA$S(2) *RPASS<2> 

COMMON  I^8ABA,lRABAjXNBAB,xNRAR,BPA9KIRpApK 

Common  bdrs  ( 2 j *^dhns (2)  ,BkRS<?>  ,bkrns<2) 

Common  RMS (2)  i_«DBNS(2J.jRkBSi2>jPk:BNS_12) 

COMMON  94R,B4At.,B4ANl ,B4*N2,B4AS1 iR4AS2,R4NS1 »B4NS2,R4SNl ,R45N2 
Common  R40 .R4aL*P4An1 ,P_4*N2, R4ASI »R4AS21R4NS1 »R4N$2tR4SNJ . R4SN2 

common  EPS4 

COMMON  NFRFAfFRF>(15_L,FAU5) 

COMMON  NFRBD.FRBd < 15) * RD ( i 5 ) 

C&MHM .NEBBQj FRRD ll 5 J iRDUS) 

COMMON  NB,NR 

COMMON  PB  i 20 » 3 ) »PR  { 20j_3) 

COMMON  PROPB (3,3) ,PROPR (3,3) 

common  m^e^moEi  _ 

COMMON  BCW6T,BS«GT(3) ,B0WrT(2)  ,RC«G t , RS*GT ( 3) #ROMGT(2) 

COMMON  QMA 

C 

Common  veil  III! llvR Si  1 ! lltii ! 

__ common  w <i l ♦ 11.)  fS^BUl)  |SW^(H)jValuE 

COMMON  BDI (3f 9p) , RQ I (3,90) 

Common  b'do(3,9o)  ,rdd<i,9o) 

COMMON  BGF (90 ) , RGF(9p)  

COMMON  PA? (4*90) *RAI <4*90) 

— COMMON  BAD  U,9j?)jRAP  U,90)  _ 

t-OMMON  ^^F  (9q)  , r*F  (90) 

COMMON  BF  ( 90 ) , PF (90) 

COMMON  FERA ( 90 ) 

Common  cbf(9o> ,crf«9q) 

common  cbaf (9oj »craf ( 9q j 

c 

CDUDUIM 

DIMENSION  JBASL2QJxlRASi20j^lBjmc(2QljASl20^40j.jCS14Q)  j0Si2(Ll 

DIMENSION  X(20) , SUM (20) , I BACT ( 20 ) , I R*CT ( 20 ) 

MQT*fc 


SIMPU2  00002 
MAIN l_ 

main 

MAIn 

MAIN 

MAIN 

MAIN 

main 

MAIN 

M*lN 

main 

MAIN 

MAIN 

main 

main 

main 

main 

MAIN 

MAIN 

- main  

MAIN 

main 


MAIN 

MAIN 

MAIN 

MAIN 

main 

main__ 


main 


main 

-MAIN 

MAIN 

-MAIN  - 
MAIN 

-MAIN 

MAIN 

MAIN 


main" 

MAIN 


MAIN 

main 


main 

-MAIN 


MAIN 

MAIN 


main 

-MAIN 


MAIN 

-MAIM 


MAIN 

main 

SIMPL2 

SIMPL2 

SIMPL2 

-SIMPU2 


00003 

— 0 0 Q Q 4 

0Q005 
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ifwpu  .eq.  z .and.  tPpu  .eq.  i)  write ( mot iTi 

1 FORMAT  UHl/) 

DO  723  I -1 » 20 


IBACT(I)  a IRACT(I)  « 0 

BS(I)  -i.O 

IBAsil)  .IR*S<n  ■ iBASTCm  -n 

Do  721  Ja 1 1 40 

C&Ul  - Q.jQ 

7?1 

AS  < I * J)  a 0.0 
continue 

723 

CONTINUE 
DO  731  I_a Ijll 

DO  732  J.ltll 

732 

711 

CONTINUE 

CONTINUE 

C 

FIRST  SETUP  OF  MATRIX  v 
JR-  JRO 

IF  t JRO  ,EO.  0)  JR*1 
iBia-i 

IRACTUR)-! 
Dfi  7?5 

l 

c 

SET 

“Compute  payoff  entry  (lS.jr) 
ALLOCATION 

DO  730  MS*  1 ♦ 3 

P R 0 P B ( M Si  2 ) ■ PR(LBiMS) 

730 

PROPR ( MS i 2 ) - PRtjRiMS) 
CONTINUE 

CALL  CAM(IDL2tlDU2) 
CAU  SIMPL3 (L0 » JR) 

IF (LB  .EQ.  1)  BlG«V(ltJR) 

IT (Y  tlBj JP1  _xLE^  BIG)  DO  TQ  725 

72<f 

IBlGa  lB 
BIGb V (LB • JR) 

C 

725  CONTINUE 

PlRST  time  simplex  matrix  SpTUP 

DO  790  I ■ 1 » N0 

PXVC^.-  V(IBIG.JR)  ♦ GY* 

AS ( 1 , 1 ) * ( V { I » JR) ♦ QVaj/PIVcO 

cs  t n V i . -as  1 1 • t i 

790 

Continue 

ASll.NBfl)  - -I.O/PtVCO 

CS(NBM)  * 1*0/PIVCO 
J(NECh-KQ/PIVCO 

c 

BS ( 1 ) ■ -XNEC 

c 

c 

SET  ACTIVE  BLUE  AND  RED  STRATEGIES 

first  time 

DO  750  |«1,NB 

IBAs ( I ) ■ 0 

750 

x 1 1 ) ■ 0.0 

IBASII) *IBIG 

TBAsTC ( 1 ) a IBIG 

X(IBIG).  1.0 

IRAS(I)-  JR 
DO  751  T a2 . NR 

75 1 

irAs { I ) -0 
continue 

SIWpl? 

$IMPt? 
SIHPU2 
5JMPL2 
SIMpl? 
SIMPL? 
SIMpl? 
SIMPL2 
SIMPLE 
SIMPL2 
SIMPL2 
SJMPL2 
SIMPL2 
SIMPL? 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 
SImpl? 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
5IMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL2 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 
S I mPL2 
SIMPL2 
SIMPL2 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 
SIMPL? 
SIMPL2 


00007 

00006 

00009 
0QQ10 
0001  1 
00012 
000  1 3 

00014 

00015 

00016 
00017 

00010 
00019 

OQ020 
00021 
00022 
00023 
0 0 024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 
00Q36 
00039 
00Q4Q 

00041 

00042 

00043 

00044 

00045 

00046 

00047 
0004B 
00049 
QOOSO 

00051 

00052 

00053 

00054 

00055 

00056 

00057 
J30Q58 
00059 
Q0Q6Q 
00061 
00062 
00063 
Q0A64 


GVAL«PIVC0 

NqOv^aNRAs.NBC.T 

C 

c GENERAL  LOOP  FOR  TESTING  TOTAL  FEASIBILITY 
c determine  if  Constraint  is  viOL*t^°  find  host  violated  one 

2600  CONTINUE 

JR»JR1G«I«AS( 1 ) 

InEEAs*0 

DO  270  J«1»NR 

SUM(J)a  0,0 

SUM ( JR ) «GvAL»GvA 

IF{IRACT(J)  ,EQ , i)  00  tO  ?7n 

DO  26q  I ■! »N^C 

C GROUP  ACTIVE  STRATEGIES  TOGETHER 

C IF  ROW  ALREADY  HAS  BEEN  COMPUTED*  NEED  NOT  RECOMPUTE  ENTRIES 
LB*IBAS ( I ) 

IF(IRACT(L9)  .EO.  1)  Go  TO  259 

C FIND  ENTRY,SET  ALLOCATION,  C*LL  CAM,  ASSIGN  TO  V 
C 

DO  255  mS«1*3 

RR0PR(Ms,2)  * PR(L0,MS) 


PrOPr(ms»2)  * PR(  J»MS) 


255 

continue 

CALL  CAm ( IDL2, IDU?) 
CALL  SIMPL3(LB,  J) 

259 

sum(j)  « sUM(J)  * X(lB) 

* V<LB*J> 

260 

continue 

261 

IF (SUM ( jj  ,GE,  GVAL-GVA) 
iNFEASaj 

GO  TO  270 

IF (SUM ( J)  ,LT , SUM (JBIG) ) 

JBIG.J 

270 

Continue 

DO  268  J » 1 , NBC 

LB«IBAS{T) 

10 ACT  < LB ) *1 

268 

CONTINUE 

IFIINFEAs-I)  271,272,272 

271 

CONTINUE 

c 

C MATRIX  GAME  SOLUTION  HAS  BfEN  FOUND  ASSIGN  W(IB,T*I 

C FIND  AND  ASSIGN  OPTIMAL  RLtjE  AnD  rFD  STRATEGIES 
C IF  DESIRED  pRINT  STRATEGY  AnD  V*lUe 
C 

W ( IB , I R) * GVAL-GVA 
D0  2701  J*1,NR 
2701  sVr(I9»Ip*J>  * 0*0 

DO  27H  IRC*  1,  NRA S 
IrAsj.IRAS { IRC) 

SVR  (iB»Ir*IrAsD*  cs<nb*trc»*gval 

2711  SWUE  I.1.NB 
2?l2  SVB  < T9  , Tr, T ) * X(T) 

IF<IPRV  .Eq.  0>  RETURN 

IF«NPD  ,FQ.  2 .OR,  IPPU  ,EQ,  1)  WRItE(Mot.I) 
npDmi *npo.i 


Sl*Pt? 

Sl*PL? 

ST«Pl? 

SIMPL* 

5THPL? 

simpl? 

simple 

SIMPL? 

StNPL? 

SlMpL? 

simple 

SlMPLp 
St*PL? 
SIMPL? 
5IMPL? 
SIMPL? 
SI  MR* 

SIMPL? 

STNPL2 

simple 

STMPL2 

5IMPL2 

staple 

simpl? 

SIMPL? 

5IMPL? 

SIMPL? 

5IMPL2 

SIMPL? 

STmpL? 

simpl* 

5WL? 

SIMPL2 

SIMPL? 

SIMPL? 

SIMPLE 

SIMPL? 

SIMPL? 

SIMPL? 

SIMPL? 

SlMpL? 

STMPL? 

SIMPL? 

5IMpL? 

SIMPL? 

STMPL? 

SIMPL? 

$tmpl? 

SIMPL? 

5IMPL2 

SlMrL? 

i!  sal 

SIMPL? 

SIMPL? 

SIMPL? 

SIMPL? 


OO00S 


000 
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0006* 
0p070 
00  071 
00072 
060T3 
00074 
000T5 

ooolt 

°9°Ti 

00080 

oomn 

0008? 

66083 

00084 

666** 

00086 

00087 

00088 
o6d?* 

00090 

OOTPH 

00092 

o6or3 

00094 

OO00F 

00096 


III" 

6oI6I 

00102 

60103 

00104 

00105 

00106 
00107 
66100 
6610^ 
opno 
oorrr 

tliti 

00114 

00115 

m 

spi* 

urn 

urn 


WRITE <M0T*4q  1)  NPhkI 

S T M R L ? 

001^3 

4 ^ 7 

FORMA 1 {////] H # JlHPAYOFF  MAlRiX  FOR  ^AmE 

at  stage  ,n  > 

SimPL? 

001^4 

WRI TE (M0T*4n«)  (IRACT  1 H * 1*1 |NP) 

StmPL? 

00  125 

4 - b 

FORMAT  < 1 H ,4X»i]  111 ) 

St^Pl? 

Q0l26 

DO  4 1 >J  1*1,  NO 

St^Pl? 

00l2  / 

WRITE  <Mf)T  *4^9)  IdAcT(I)  * ( V < I « JJ  *Jal  , \V> 

Sl^PL? 

0 0 1 2 A 

4*9 

FOHmaT  UH  , T2*2X»  llFU  .3) 

SiwPl? 

00129 

4 1 0 

CONT InUE 

Sj^PL? 

00130 

IF (Npu  ,tu.  d)  GO  TO  420 

St^PL? 

00131 

WR7 TF (M0T»41 8)  1 o * TH 

St^Pl? 

00132 

41  6 

FORMA T ( IHj, THia* , I*, 7H  IW«, 15) 

Sjmpl? 

00133 

WRI  TF  (MOf.419)  W.  ( IM  * I P ) 

St-pl? 

00  134 

4)9 

FORM*  I ( 1 HO  * 1 i/W*»  (IB,  IK)  ,F1S.4) 

St^RL? 

Ool  3 = 

GO  TO  422 

SlK/PU? 

0 0 1 3b 

4?Q 

WHITE  (MOT  * 4?  1)  «UM»IR) 

Sl*PL? 

00137 

4?i 

FORMAT  ( 1 hu * 1 3^Ga Mg  VALUE  *M5.m 

ST^'PL? 

00  1 3d 

4?2 

CONTINUE 

Si^Pl? 

00139 

WRITE (MOT»4?3)  nPomI 

STmPL? 

00140 

4 ?3 

FOHMA I ( iMOtTAMbl UE  AND  RED  STRATEGIES  fr>R 

PpH I OD  .13) 

S I ‘•'PL? 

00141 

WHITE  (MOT ,3n)  (bVp ( I h , 1 R , I ) • Is 1 • NK ) 

Sl^RL ? 

001*^ 

WRITE (MOT* 30)  (SVP< IK* IP. I) * Is i *NP) 

Si^pl  ? 

00  143 

lU 

FQHMATUH  *4X*ilFli#3> 

St vpl? 

00144 

wRI  TF  (MOT  *4^3)  NPp 

Stmpl? 

Oo  i4s 

DO  31 UO  Lrtal ,No 

S I ~»ML? 

On  1 4b 

DO  3)00  LRaliMR 

Sy^PL? 

0rtl4  r 

IF  (SVrJ  ( IH*  IH*Ld)  .LF.V.  *OR.  SVK ( Ip , I H,LR » , 

.Up.  0.)  GO  TO  3100 

Sj^pu? 

0 n 1 4h 

WRITE (MOT, 1 l ) Lb.LR 

St-pl? 

00149 

1 1 

FORMAT (1 Hj ,?I 1 1 ) 

St^pl? 

Oo  l^o 

WHITE ( MO  1, 3o)  (SUR (LB*LR,L) *Lsl*Nh) 

St^Pl? 

001S1 

w H I T F (MOT  * 3o ) (SUP  (Lb»LR,L>  * L* 1 *NR ) 

S 1 pPL? 

O0i*? 

3 1 o o 

CONT1MJE 

S>T«*L? 

on  lS3 

IF ( I P ■< u .tu.  i .amp.  mpd  .to.  3)  whiTf(mut,i) 

S I mPL  ? 

0nlS4 

HFTUK-M 

StpPl? 

001S5 

?72 

CON | I \UF 

St  *,pl  ? 

0 0 1 Sb 

r 

S I »*HL? 

OOl^T 

c 

nEE[1  mORF  HFl)  STr^rtltblFS 

Sl*.?L? 

0 0 1 Sd 

c 

EnTER  J^lG  EOR  KtC 

St^pl? 

0 0 1 S9 

c 

Si>-Pl2 

00160 

NWAS**HAS* l 

St»‘PL? 

00161 

JR  = JHlb 

St^'Rl? 

00162 

IRACT  ( JMlva)  a 1 

$T‘,pL? 

00163 

IRAS  (NHAS)  sjrilvi 

St^PL? 

On  1 64 

DO  2 HO  Lu  = 1*<^o 

StmPL? 

00166 

c 

S T pPL  2 

00166 

c 

COMPUTE  RAYOFF  tMRy  (LH*JR) 

SlvPL? 

00161 

c 

set  allocation 

Sjmpl? 

On  1 6h 

c 

St-pl? 

00  1 69 

IFtlHACT(Ltt)  .tO.  1)  GO  TO  2*0 

S I MPL2 

oo l to 

DO  27rt  M5=l*3 

StmPL? 

00171 

PPOPH  ( f 2 } S Ppi(LntMS) 

SimPl? 

00172 

PROPK ( MS  * 2 ) a PP(JOtMS) 

st*pl? 

Oo  1 73 

?7b 

CONTINUE 

StmPL? 

001  74 

CALL  CAM  ( U)l  di  1DU21 

StvPl? 

00175 

CALL  SlMpL3(Ld*jR) 

Stv.pl? 

001  7b 

2^0 

con  r i nuf 

StmPl? 

00177 

c 

StmPL? 

001  7 d 

c 

ASSIGN  PAYOFFS  Tu  SIMPLEX  MATRIX  PIVOT  TN  NE*  CONSTRAINT 

SjmPl? 

00179 

c 

PlVOTlMi  IN  a hOw 

S T mPL? 

00160 

64 


NROWS-NRQWS+1 


DO  3(W  K«1,N« 

C GIVEN  JBIG 

AS ( NROWS  t K ) ■ -(  V (K* JBTG) *GVa) 
3q0  CONTINUE 

NRO WM 1 -NROWS* 1 

-PQ--3P2 K-ltNRO&Ml 

As ( NROWS  * NB  + K ) .0,0 
AS (K«NB*NRQWS)  ■ Q«Q 
3n2  CONTINUE 
BS(NROWS)*  -1«0 

— 

AS (NROWS, N9*NR0WS)  »l.ft 

IBA5ICLNR.OWS)  ■ N«  ♦ JiRQWS 

DO  30l  J«1 ,NR0WM1 

c 

PIVOT  OUT  VARIARLE  FROM  CONSTRAINT 


RATIO-  CS(IJ/AS(LEAVEl*!> 
IF(rAT!Q  ,lE.  RENT)  GO  TO  Bf)l  . 


IENTFR 

RENT 


•I 

RATIO 


8nT  continue 

IME  VARIABLE  IQ  ENTER  THE  BASIS 
IBASIC (LEAVEl)  ■ IENTER 
pi  VOL 


B05_ 


PIVCO-  AS(LEAVE1, IEnTeR) 

DO  805  I»1  i ITCOL 

AS (LEAVEl , I)-  AS  (LEAVEl, I) /PIVCO 

IF ( I ,Eqt  ientEri  go  TO  ROS 

CS  ( I ) -CSd)  - AS(LEAVEltI)*cS(IENTER) 
CONTINUE 


SIHPL2 

-SIMPU 


001*5 

001*7 


SIMPLE  OpiM 


IF ( IRASIC ( J ) ,GT.  NB)  GO  TO  301 
IBA51.  I?AslC(jj 

SIMPL2 
SI  MPL2 

opm 

44240 

PIVCO  ■ VtlBASl , JBIG)  ♦ GVA 
NBL*  NB^ROWMl 

SIMPL2 

SIMPLE 

00201 

44212 

00  3 0 A I ■ 1 , NBL 

AS(NROWStl)  » AS  (NROWS » I ) ♦PTVCO*AS{J, I ) 

SIMPL2 

SIMPLE 

0p2l3 

0pE04 

3nA 

CONTINUE 

BS  (NR0WSi*BS (NROWS)  ♦ Pj VcO#BS ( J) 

SIMPLE 

5IMPL2 

opioi 

0Q204 

c 

3"T 

CONTINUE 

SIMPL2 

SIMPL2 

00207 

ootoa 

c 

t 

NOW  PIVOT  TO  RE-SOLVE  PROBLEM  USE  DUAL  SIMPLEX  METHOD 

TO  START  LET  SLACK  IN  LAST  ROW  LEAVE  BASIS 

SIMPL2 

0020* 

c 

c 

slack  VARIABLE  IS  NEGATIVE 

SIMPL2 

SIMPL2 

00211 

00212 

floU 

leavei-nrows 

CONTINUE 

5IMPL2 

SJMPL? 

00213 

00214 

c 

FIND  ENTERING  8 ASIC  VARIABLE 

itcol-nr*nrqws 

SIMPL2 

00215 

InDIC-0 

DO  90 1 T * 1 * ITCQL 

SIMPLE 

SJMPL2 

00217 

Qp21i 

IF (AS (LEAVEl » I)  ,GE.  0.0)  GO  TO  BOl 
IFUNDIC  .EQ.  1)  GO  TO  8fl2 

SIMPL2 
SIMPLE  - 

0p21* 

4A224 

RENT*  CS(I)/AS(LEAVE1,I) 
IENTeR  *1 

SIMPLE 

SIMPLE 

0p221 

0Q222 

8n2 

INDIC-1 

CqNTINUE 

SIMPL2 

SIMPL? 

SIMPLE 

SIMPLE 


SIMPLE 

1IMPL2 


00225 

Qq??6 


SIMPL? 

SIMPLE- 


00227 


SIMPL2 

SIMPLE 


0022* 

QQ23Q 


00231 

00232 


SIMPLE  00233 


SIMPL2 

SIMPLE 


00235 

-00214- 


SIMPL2  00237 
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BS(LE»VE1)  ■ B^(LEAvEl), 
DO  8p3  JMtNROwS 


IF  ( J *EQ.  tEAVEl)  GO  TO  803 

DO  BOA  IglilTCOL 

TF(I  .EO,  IENTER) GO  TO  804 

_AS(gtI)  ■ AS(JtI)«4S(LgAVEl»n#AS(J.l ENTER) 


BOA  CONTINUE 
BS(J)»  B8(J)  - BStLEAVEl) • AS(J.IENTfR) 

8o3  Continue 

I XNECiXNEC-BS < LEaVEI ) »CS ( tENTfR) 

CSdENTER  ) «0,o 

00  8^6  j_f_It,Nft0MS 
A5(jtlENTER)  ■ 0.0 
Bob  continue 


A5(LCAVE1*IENTEr)  • l.o 


Test  rhs  for  feasibility 

«rr 


FIND  HOST  NEGATIVE  ENTRY 


INFEAS«0 
TESTb  0.0 


DO  811  J»lfNROWS 

IFtBStJ)  »GE»  0.0)  GO  tO  Bll 

WKAs.i 

IF(BS(J)  .QE.  TEST)_  go  to  811 


test  ■ BS ( J) 
LEAygUj 
CONTINU 


8 1 1 continue 

IF(INFEAS-I) 


840.800.8o0 


FEASIBLE 

find  acti 


SOLUTION  FOUND 


VE  BLUE  STRATEGIES 


840  CONTINUE 
OVAL»  »1. 0 / X NEC 


TBC.0 

DO  849  T ■ 1 ♦ NB 


849  X(I>  ■ 0.0 

DJL.8S0 I.RQwi_  l.iNPQWS 

SEE  IF  A SLACK  VARIABLE  IS  B*SIC 

IF  (IBASlc(lRQW)  .GT.  NBl  GO  Tp  fl5p 
iBCuIBC* 1 

lBAsl«lBAS (IBC?  alBASlC  f IpOWI 


aso 


X(IBASl). 

CONTINUE 


BS(IROW)*  gVAl 


NBC.IBC 
00  TO  2600 


END 


SIMPL2 

00239 

SIMPL? 

OflHAO 

SIMPL? 

00241 

SIHPL2 

00242 

SImpl? 

00243 

SIHPL2 

54244 

SIMPL2 

00245 

S1HPL2 

00244 

SIMPL? 

00247 

SJHPL2 

00248 

SIMPL2 

00249 

SIMPL? 

00250 

SIMPL2 

00251 

SIMPL2_ 

40252 

SIMPL? 

00253 

SIMBL2 

04254 

SIS  SIMPL? 

00255 

SIMPL2 

04256 

SIMPL? 

00257 

SIMPL2 

04258 

SIMPL2 

00259 

. _J«MPL2 

00260 

SIMPL? 

00^81 

SIMPL?, 

04262 

SIMPL? 

00263 

5IMPL2 

04264 

SIMPL2 

00265 

SIMPL? 

0Q266 

SIMPL2 

00267 

SIMPLE 

00248 

SIMPL? 

00269 

SIMPL2 

00270 

STMPL2 

00271 

SIMPL? 

0J)272 

SIMPL2 

00273 

SIMPJ^. 

00274 

SIMPL? 

00275 

SIMPL2 .. 

442 T 6 

SIMPL? 

00277 

SIMPL? 

04278 

SIMPL2 

00279 

SIMPL? 

04280 

SIMPL2 

00281 

SIMPL? 

OpgRp 

SIMPL2 

00283 

SIMPL? 

0Q284 

SIMPL2 

00285 
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SUBROUTINE  SIMPL3 


SURROUTINE  SIMPL3< JB. JR) 
CftUPDlM 


SIMPL3  01002 


COMMON  NKBD»NKRO,NKBA,NKRa 
COMMON  NIO 

COMMON  N^P^iIPLl » IDUl * IDL2. IDU2*I0L3*  T0U3 
COMMON  IROtJROfKRO 

COMMON  1PRV.IPRU 

common  ireplb,ihepi_R 

COMMON  BOA (3*90) ,HDA(3,90i 

Common  baa u,9o) *raa u,90) 

COMMON  OBQftAtDRttRA 


-MAIN  . 


MAIN 

-MAIN 


MAIN 

JjA m, 


main 

-MAUL. 


COMMON  SHELBI90) ,SHELR(90) ,PBSHEL,PRSHEL 
COMMON  BSHELK(90)tRSHCL k(90)  

Common  ^Bd(3)7TO)o>  *fba'<'2)  ,fr*(2) 
common  IDRSRC | IDRSRC 


MAIN 

MAIN 


COMMON  50RRB1 (2*3) ,SORRBZ |2,3) *SORR«l (2,3) ,SORRR2<2,3) 
COMMON  IAA, XNR4A,XNRAA,BALpHA(2,2)  *R*LPHA(2«2) 

COMMON  BIORA (2,4) « B AO R I (4,2) .RIORA (2,4) *RaOBI (4,2) 
COMMON  8lKRA(_2j_4j18AKRI  (4*2)  iRlKBA^AJjRAKtHAi^) 


MAIN 

-Mia 

mmn 

-MAIN 


MAIN 

main 


COMMON  BSAMZR(2*2) ,RSAMZB(2,2) 

COMMON  !R3SH,8rRACi,BrRAC2,RFRACl,RFffAC2.FBlK,FRSM 

COMMON  BPASS(2) «RPASS(2) 

COMMON  IBABA,IRABA,XNBAB,XNRAB*BPARK,RPARK 
'Common  ~9Br$  c 2 > ,^CrnS(2)  ,bkRS<2)  ,AkrNs(2> 

COMMON  RDBS(2) ,Rp8NS(2) .RkBS (?) .RkrNS (2) 

COMMON  B4B,B4AL,B4XNTTB4AN2,64ASl*R4Al2,B4NSl,B4Nfi,B4iNl,B4*N2 
COMMON  R4BtR4AL,R4ANl,R4AN2,R4ASl*R4A52,R4NSl*R4N|I,R4»Nl,R4lN2 


MAIN 

JLAlfL. 


main 

-MAIM 


MAIN 

MAIM 

main 

-MAIN 


MAIN 

-MAIM 


COMMON  EPS4 
COMMON  NFrPA*FRFA  US) ,FA(jS) 


main 

MAIN 


COMMON  NFRBD,FRBDU5)  ,80(15) 


MAIN 


“Common 

common 

nb,nr 

PB(20*3) *PR (20*3) 

main 

main 

COMMON 

common 

PROPS (3* 3 J • PROpR ( 3,3 ) 

moe,moet 

MAIN 

main 

Common 

COMMON 

^CTw»f  ,"ffS^T(3)  ,BqW0T  (2)  *RCnQT#R5M^T(3)  ,RQM*T(T) 
QVa 

MAIN 

main 

c 

COMMON 

u(n»in  'sub  in  tn,  in. suRd  i.ii.ii) 

MAIN 

MAIN 

“Common 

common 

V < 1 1 ,11) * SVB (11*11,11) ,SVR(ll, 11*11) 

w 1 1 1 • in  «smb  a Uj.sw-  ( u J j.yAuuE 

main 

MAIN 

c 

common 

801 (3*90> »RDI (3*90) 

MAIN 

MAIN 

“Common 

BD6(3,9o) , ROD ( 3*  $0) 

mMn 

COMMON  86F (90) , RQF (9p) 


COMMON  BAI (4*90) ,RAI (4*90} 

Common  baq(4,9o)1rao(4,9o> 

“GCmM^  B AF  ( 90  ) « NAF(90) 


MAIN 


MAIN 

h*In 


-8 


qmmqn 


RF(90) 


SF (90) i 
OMMON  "EBA (9o) 

CQHHQN  CBF(9(1)  >_CRf  (90  ) 


MAIN 

MAIM 

main 

MAIN 


COMMON  CBAF  (90) »CRAF (90) 


MAIN 

main. 


coupoim 


OIMENSIQ N i B AS ( 2 0} , IRAS (20) ,t8ASIC(20) ,A8 (20,40) ,CS(40) , 13(20) 


SIMPL3 


'*#003 

.lOOQA- 


OJMENSION  X (20) , SUM ( 20 ) *i8ACt(20) ,IrACT(20) 
MpT»6 


SIMPLj 

8IMPL3- 


OfOO» 
llflii  ■ 
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FORMAT ( 1H1 / ) 

DO  723 

IB ACT ( J ) • IRACT(I) 

Bg  (I)  gjUfl 


TPsii) 

Dp  721 
^S(J)  ■ 0,0 


■IRAS ( I ) ■ IBASlC(I) 
J.1,40 


"TaT 

T?j 


-HM 


o.o 


INUE 

continue 


"00  73T 
00  732 


12*. 


U(I*J)«0. 

CONTINUE 


1*1  til 
J-liJJL 


?3l  CONTINUE 

C FIRST  SETUP  OF  MATRIX  U 


KR-KRO 

■ ir<i<R0 


1010- 1 
IRAQT (KRi m\ 

00  7H  LB-1. 


EQ.  0)  KR«1 


DO  725  IB-l.NB 

c compute  payoff  of  Entry  <lb.kR) 

l SET  ALLOCATION 

00  7 AO  HS«1i3 


PROPS (MS . 3)  ■ PB(LB.MS) 
PR0PR(HS.3)  ■ RR<kR.mSi 
740  CONTINUE 

511  U(LB.KR),  FEBA(MOET)  


-SH- 


OO TO  519 
UtLB.KR) 


CBF(MQET)^CRFfMQEj) 


GO  TO  5l9 
UfLB.KR)  » CBAP (MQET).cRAFtMQETl 


51  3 


GO  TO  519 
SURVIVINQ  AIRCRAFT  HOF  IS  HQE  4 


51* 


CONTINUE 

^UMQMBQWQTtll^tBAI  (l.MQrTl-BAO(l.MQET)  1 - 
1 RQW0T(1)#(RAI (1*MOET)-rAD(1,HoET) ) 

DO  5141 KA»2,» 


ms«ka-  1 

SUHQg«SUHOEtBS«QT<MSl»tBAl (KAt MQElJ^flAD (KA.MOEll ) 


5141  CONTINUE 


RS*GT (HS)*(RA! <KA.M0ET> -RAO (KAtMOET) ) 


U (LB • KR) ■SUMOE 
QO  TO  519 


c qra  penalty  moe  is  moe  5 

" 51$  CONTINUE 

BA-BAI  ( 1 v MOET) -BAD ( 1 » MQEt> -ObQRA 

RA«RAI  (1.H0ET)-RAD(IiHqEt)-DrQRA 

SUMOE"BCWOT«CBAf(hOET) -RcwGT«CRAF (NOET) 
SUMOfSUMOFtBQWflT  t \ ) tAMAXl  U 


SUHOE-SUMOE-RQWGT (1>*AmAk1 (O.O.RA)-RQwGT (2)*ANIN1 (O.O.RA) 
00  5151  KA«2.A 


HSaKA* 1 

__  SUHQg«SUMOF*BSWQT(KSl»(BAl  ( KA » NOET>  -BAD  (KA  .HOETil 
1 - RSFGT(MS)t(RAl (KA,M0ET)-RAD(KAtM0ET) > 

5151  CONTINUE  — 


51MPL3 

OOOOT 

SIMPL3 

QQOQ8 

3IMRL3 

00009 

SJNPL3 

QQQ10. 

5IMPL3 

00011 

5IHPL3 

00012 

SIMPL3 

00013 

3IMPL3 

00014 

SINPL3 

00015 

5IHPL3 

0 QO  1 6 

5IHPL3 

00017 

SI MPL3 

0 

SIMPL3 

00019 

SIHPL3 

00020 

SIMPL3 

00021 

SIMPU 

00022 

SIMPL3 

00023 

SIHPL3 

0Q024 

SIHPL3 

00025 

SINPL3 

Q0Q26 

SINPL3 

00027 

SIMPL3 

0002* 

5IMPL3 

00025 

SlMpLS 

00  030 

5IMPL3 

00031 

S1HPL3 

50022 

SIMPL3 

00033 

SIMPL3 

50524 

SIMPL3 

00033 

SIMPLE 

501116 

5IHPL3 

00037 

SIHPL3 

05l52B 

SIHPL3 

00039 

SIHPL3 

00041 

SIMPLJ 

00042 

SIHPL3 

00043 

MHP1  3 

05544 

SIMPL3 

00045 

S1MPL3-- 

55545 

SIMPL3 

00047 

SIMPLX 

55545 

SIHPL3 

00049 

SI  HP  13 

50555 

SIMPL3 

00051 

-SINPL3 

55052 

SIMPL3 

00053 

SINPU 

00054 

SIMPL3 

00055 

SIHPL3  JLflfiSG 

SIHPL3 

00057 

SJMPL3 

OQQ5B 

5INPL3 

00059 

SIMP LI 

-55555 

SIMPL3 

00061 

S1MPL2 

55052 

SIHPL3 

00063 

SIHPL3 

0 Q 064 

68 


Ul«  Kfl(  wSLWOE 

*T*9L3 

ooo« 

GO  TO  S{9 

Sl«PL3 

ooo66 

519 

continue 

5W13 

O0O6T 

IF (U (L9f KR)  ♦ Gy A ,lE.  0 . 0 j Go 

TO  5191 

SINPL3 

00068 

Cc  TO  51^2 

SlNptj 

6p0&9 

5 1 Pi 

G*  -U<LB*Kp) 

SlMpL3 

00070 

GO  TO  1100 

5TWPL3 

00071 

5192 

continue 

SIMPL3 

00072 

IF  t LB  .FQ.  1)  RIG«UU#KB) 

5IWPL1 

06073 

IF  <U (LRfKR) *LE.  BIG)  GO  TO  725 

SIMPL3 

0007A 

726 

IBTG*  LB 

$I*Pt-3 

06075 

6IG-U (LB.KRi 

SIMPL3 

00076 

7?5 

continue 

SI»PL3 

OQOT? 

C FIRST  TIKE  SIMPLEX  MATRIX  SFTUP 

SIMPL3 

00078 

OO  790  T«1,NB 

5IMPL3 

00079 

PIvCft*  U(IoIG,Kp)  + GyA 

5IMPL3 

000*0 

As(l»ll*  < U<I»kR>  GVA1  /PIVCO 

SIHPL3 

06081 

CS  (I)  ■ 1,  -ASM  » T ) 

SIMPL3 

00082 

790 

Continue 

SIWPL, 

000*3 

AS  1 1 • NR* 1 ) * "1.0/PTVC0 

SlMpL3 

00084 

CS ( NR ♦ 1 ) * I.O/PIVCO 

5IMPL3 

00085 

XNEC.-j ,0/PlvCO 

S I mPL3 

000** 

es<l)«  -*NEC 

SIHpll 

00087 

C 

SIMPL3 

00088 

c 

SET  ACTIVE  BLUE  AnD  RED  STfiATFGlES 

first 

tihf 

5IHPL3 

00089 

c 

SIMPL3 

00090 

00  750  J al * NR 

SIMPL3 

00091 

I*AS(I)»  0 

5lMPL3 

OOO’Z 

750 

XtD  » 0.0 

SIMpL3 

00093 

I8AS  (1 ) «IBIG 

SI«PL3 

00094 

IB*sIcU)  - T8I<3 

Sl«PL3 

00095 

x < I B T G ) * 1»0 

5 1 mpL3 

00096 

IRAS  < 1 ) a KR 

SIMPL3 

00097 

DO  75!  I | NR 

SIMPL3 

0Q09* 

IRAS (I) »n 

SIMPL3 

00099 

75 1 

CONTINUE 

SImplI 

00100 

gval«pivco 

SImpl3 

00101 

nrows«nras-nBC«i 

SIWPL3 

0 0 1 0 2 

C 

SIMPL3 

06103 

C GENERAL  LOOP  FOR  TESTING  TOTAL  FEASIBILITY 

SJMPL3 

00104 

c determine  if  constraint  is  violAtEo 

find 

most  violated  one 

SIMPLE 

00105 

c 

SIMPL3 

00106 

2600 

continue 

SIMPL3 

00107 

KR«jRIGalRA$ (1 ) 

SIMPL3 

0010B 

In^E a$=q 

SIMPL3 

ooio* 

Do  2?0  j.i.nr 

SIMPL3 

ooiio 

St  jH  { J)  ■ 0.0 

Sl^PL, 

06111 

SUM (kR ) *GVAL“GVA 

SIMPL3 

00112 

IF(IRACT(J)  .EQ.  1)  GO  JO  270 

5IMPL3 

00113 

DO  260  I*1,nBC 

SIMPL3 

00114 

c 

SIMPL3 

00115 

c 

gRqup  active  strategies  t0gethfR 

SIMPL3 

00116 

C IF  ROW  ALREADY  HAS  BEEN  COMpUTEDi  NFFD  NOT 

RECOMPUTE  ENTRIES 

SIMPI3 

00117 

JUST  USE  THEM 

SImpC3 

0011* 

C 

5IMPL3 

o6n9 

LR* I RA  S ( T ) 

SIMPL3 

00120 

IFdRACjfLB)  #Eo,  \)  Op  TO  2*9 

SlMPL3 

00121 

C 

SIMPL3 

00122 

69 


r FIND  -ENTRY  SET  ALLOC AT  ION  t CALL  TAM*  ASSIGN  TO  0 

DO  255  M$» 1 1 3 

PROPB  (MS 1 3 ) ■ PB(UfMSl 

255 

PROPR (MS  # 3 ) - HR<  J » MS ) 
CONTINUE 

CALL  CAH ( IDL3 * I0U3) 

_ GQ  m JSMt 522*5231  s? 4 >5? 5)  ,mOE 

521 

U(LB,  J) a FEBA(MOET) 
GO  70  529 

522  U (LB  i J) 

QQ  TO 

0(LB,  J)  * 


CBF (MOET)-CRF(HOET) 


CBAF (M0ET)*cRaF{H0ET) 


00-10,529- 

C SURVIVING  AIRCRAFT  HOE  IS  HOE  4 
524  CONTINUE 


SUHOE«BQWGT(l)  *(BAI  (l*HOET).BAD(l.HOETn- 
1 RQWGT  (1 ) # (RAI < 1 tHOET)  «*rAQ  ( 1 «HqET)  ) 


00  5241 


K A * 2 1 4 


SUMOE«SUMOE*BSWGT(HS)*(BaI (KAtHOET> -BAD (KAf HOET) > 


SlffPLl  00123 
SIMPL3  0Q1£4 
SIHPL3  00125 
$lMPL3  Ofll 20 
SIMPL3  0012* 
$I*P La  00124 
5IMPL3  00129 
SIMPL3  00130 
SIMPL3  00131 
SIHPL3  Q0132 
SIMPL3  00133 
SJMPL3  _00134 
SIHPL3  00135 
--SIMRL3  00136 
SIMPL3  00137 
SI MPL3  0*135 
SIHPL3  00139 
SIMPL3  00140 
SIHPL3  00141 
SIHPL3  00142 
SIMPL3  00143 


52*1  CONTINUE 

U (LB  * JJ.SUHOE 

ElHPLi 

SIHRL3 

5JHPL3 

00144 

00145 

00146 

GO  TO  529 

C OR A PENALTY  HOE  IS  HOI  5. 

SIMPL3 

-SIMPLE 

00147 

0*144 

525  CONTINUE 

EA »BAI tl.MOET) *BAD ( 1 »HOEf > -OR ORA 

SIMPL3 

00149 

RA-RAI (1 ,M0ET) -rAO( i,moEt) -Drqra 
SUHQE«8CWGT»CBAF1 HOETl*RrWQT»CRAF(HOET) 

SIHPL3 

.Simple 

00151 

00 152  

SUMOE«SUMOE*BQWGT ( 1) *AHAX1 ( 0 . 0 * B A ) ♦BQWGT ( 2) 
jSilHQfSUMQE^RflWjitfjj jUMkxXUUAxRAl -RQyQT  (21 


00  5251 
MS«KA-1 


KA«2,4 


•AHIN1 

tAHINl 


(0.0*BA) 
(0*0 »RAj 


SUMQE«SUMOE*Bs*GT (MS)* (BaI (KA*MOET> -BAD(kA,hoET> ) 


SIHPL3  00153 
_._5IHPL3  Q0154 

SIHPL3  00155 


5IHPL3  00157 


L 

RSHGT(MS)*(RAI ( K A t HOE? ) -R  AO  ( K A . MpFn > 

*IHPL3 

0nl5S 

52*1 

continue 

SIHPL3 

00159 

H(LB»  J)»SUHOE 

SIHPL3  00160 

GO  TO  529 

SIHPL3 

00161 

529 

continue 

0Q16? 

IF (U (LB « J)  ♦ GVA  .LE.  0,0)  GO  TO  5291 

SIHPL3 

00163 

GO  10  5*92 

~529T 

G«  «U(LB,  J) 

SIMPL3 

00165 

GO  TO  11(1* 

SJHPL3  00166 

5292 

CONTINUE 

SIHPL3 

00167 

259 

SUM^)  > SUM* Jj_  ♦ X (LB^  #U  (1  B « J) 

SIHPL3 

00168 

260 

Continue 

SIMPL3 

00169 

26 1 

IF  (SUM ( J j ,GE.  GVal-GVa)  go  TO  770 

SIHPU  00170 

26b 

INFEAS-1 

SIMPL3 

com 

1F(SUM(J)  .LT.  SUM ( JBIG) 1 JPlGaJ 

STHRL3  00172 

27  0 

CONTINUE 

SIMPL3 

001*3 

DO  268  E-EiNEC 

SIMPL3 

QO 1 74 

SIHPL3 

001*5 

IB*CT IkBi  *1 

260 

CONTINUE 

SIMPL3 

00177 

IF  (INFEAS-1)  2 71,2 72t272 

SJHPL3 

OfiHfl  . 

271 

continue 

SIMPL3 

001*9 

C 

SjHPEi 

00140 

70 


matrix  game  soluiion  has  been  found  assign  V(Jh.jr) 

T I ND  ANU  ASSIGN  UPIImaL  BLUE  AND  RED  SToATEGlFS 
-IF  DESlRtO  PhInT  SThatFGY  And  VALUE 


V ( JH  * JR ) * GVAL-GVA 
L)0  2 701  j*l  * nh 
SUW ( JR* jN» J) * 9.0 
DO  271  I IRC*  It  NR  A S 
IRASWRAb  ( IHC) 

SuR  ( JH  * jR,  I raS  i ) * cS(NHMRC)  *G*aL 
CONTINUE 
00  2712 

2 7 1 2 SU8(jH*JR#i)«X(I) 

IFCIPHU  .LU,  u ) HetU«N 
I F ( Npu  .Eu.  l)  «RTTE<M0T,1) 
rtRlTF  (MOT  »4ft7)  (\pn 

FORMAT {////}H  , j \ MPAYOFF  MATRIX  FOR  gAmE  at  STAGE 
WRITE  (MOT.  4 OH)  (iRACTm  * I * 1 • NR  ) 

FORmaTMH  >4X111111) 

DO  41  1 I a 1 , Nb 
WRITE (MOT t40Y)  1RAC  ? ( I ) * 

F0«MAT(1H  , t?*2x  I lull  .3) 

CONTINUE 

I F ( Npu  .EU.  1)  GO  TO  42p 
WRITF (M0T*41M)  JR, JR 
FOHM A I (lH0»lHJbe»IR,7H 
WRITE (mqT  »419)  V ( jri • JR) 

FORMA  T< 1H0 * 10hv ( J8, JR) 

GO  TO  *22 

WRITF (M0T»a?1)  V ( jo  * JR) 

FORMAT  dHu,i3HGAME  VALUE  ,f)S,4> 

CONTINUE 

WRITE (MOT  t 42J)  NPD 

FORMA  1 { iHo  >14*01.  UF  AND  HED  STRATEGIES  F OR  PFRIOD  • 1 3 > 
WRITE  (MOT,3o>  <SUr ( JBt JP, I ) , i«l »nh) 

WRITE (MqT * 3 0 > < S|JR  { jr  , jP  f I)  t 1*1  * NR) 

FORMA  I ( l H *4Xt  UFn  ,3) 

return 
CONTINUE 


27ol 


27)  1 


40  7 


4 ■»  b 


4o9 
41  0 


4 i B 

4)9 

4?U 
47  1 

4?2 


4 ? 3 


TO 


1 7 > 


<0(1 »J) « Jrl ,NR) 


JR**  IS) 


,F  1 5 , 4 ) 


272 

nEEd  MORE  RED  STRATEGIES 

enter  j«ig  hjw  Rtc 

NR ASsNH AS ♦ 1 
KRsJBiG 
IRACT (JBIG) a] 

IRAS (NRaS) * JH 1 G 
DO  2h  0 L»*l ♦ No 

COMPUTE  RaYUFF  entry  (LB*KR) 
set  allocation 

IF  ( I B a C T tLB ) • LU « 1)  60  TO  2b0 
Do  27b  MS* 1 » 3 
PROP*  <MS» J)  * PR l LP  * MS ) 
PROPH(MS*J)  « PR(KR»mS) 

?7b  CONTINUF 

CALL  CAM  ( 1DL3* 1DU3) 


S I mPL3 
SimPL3 
SIMPL3 
S i mpl3 
SIMPL3 
SimPI.3 
S?mPL3 
SimPL3 
S I mPL  3 
STmPL3 
S]mPL3 
StmPL3 
bi«PL3 
B T M P L 3 
STmpl3 
SimPl3 
SthPl  3 
S I mPL3 
B T mPl3 
S I m P L 3 
StmPL3 
S I mPL  3 
SImPl3 

StmRL  3 

Sy “PL  3 
St»'RL3 
StmPl3 
Su-PL3 
Stprl3 
Sl“RL3 
St^RL  3 
SUPL3 
SyMPLl 
SjmPL3 
SyMPLl 
StmPL  3 
SjvPL3 
S T “PL  3 
S I R L 3 
S?mPl3 
StmPL3 
S U'  P L 3 
ST “PL3 
$I*RL3 
Sl“PL3 
S T w p E 3 
St^pl3 
SimPlI 
S T “RL 3 
Sl‘RL3 
S I mPL  3 
S I “PL  3 
STMPL3 
SJMPL3 
S] mPl3 
S I ppL3 
S T pPL  3 
S T “PL3 


ooibi 

U0182 
onl«3 
00104 
001«S 
00  10's 

00l«7 
00100 
00109 
Ool*9 
00l*l 
001*2 
001*3 
On  1*4 

ool*s 
0 0 1 V 6 
on  1*7 
on  i*h 

onl** 

Cn20o 
0020  1 
0 02  0? 
0 02  03 

00204 

0 020S 
0 ()  2 0 6 
00207 
002  0 H 

00209 

00210 
on211 
0 0 212 
t 0213 
00214 
0 o 2 1 5 
0021b 

n n 2 1 7 

0 02  1 H 

00219 

00220 
00221 
00222 
0 0 c 2 3 
00224 

0 0 2 2 b 
C022fc 
00*27 
0 022h 
00**9 

00230 

00231 
0 0232 
0 0 2 3 J 

00234 

00235 

0o23fe 

0O237 

0r23b 
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uo  Tfl  (531*bJ2f533*b34,535J,MUE 

531  U ( L B i KR)  * FEBA<MOETl 
GO  TO  539 

512 UjLBtKR)  «_CBF  <MOET) -CRF  r HOE j) 

GO  TO 

133 _U(LB,KR)  m CBAF (HQET )-CRiF (MnETi 

GO  TO  539 

C SURVIVING  AIRCRAFT  HOE  TS  HOF  4 

53*  CONTINUE 

$yHOg»3QWQTU)«(BAin,HOrT) -BADU.HnETn  * 

1 RQWGT ( 1 ) * (RAI < 1 iMOFT) -RAD ( 1 ,MqET) ) 

00  5341  KA-2.4 

MS-KA-1 

SUHQg«SUMOE*BSWQT(MS)»(BAl (KAtMOET)-BAD(KA.MOET) ) 

1 - RS*GT(MS)*(RaI (KA*MOET)-RAD(kA,MOET) ) 

53*1  CONTINUE  . 

U(LB,KR)«SUHOE 

GO  10  5^9  __ • 

c qra  penalty  moe  is  moe  5 

535 CONTINUE _ 

8A«B A I { 1 * HOET) -BAD < 1 * MOET ) -OBQRA 

R*»R*I  (ltHQET)-R*D(l.MOET)-0RQRA  

SUMOE"BCWGT*CBAF ( HOET ) -Rc«GT»CRAF (HOET) 

„ SUHQE«SUMOE*BQWGT ( i )»AHAxl ( 0 . 0 »BA ) ♦8QWGT (?) ♦AHIN1 <Q,QjBA> 

SUHOE«SUMOE-RQWQT (l)**HAxl < 0 . 0 , RA ) -RQwGj { 2 ) -AM  I Nl (0,0*RA) 

DO  5351  KA«2,4 

MS«M-  1 

SUHQg«SUMOP*BSWQT (MS) » (BA  I ( KAt MOET> -BAD (KA.HnFTl ) 

1 - RSWGT(MS)«(RAI (KA,M0ET)-RAD(kA#H0ET) ) 

5351  CONTINUE 

U(LB*KR)»SUMOE 

QQ_TQ  539  

539  CONTINUE 

IF<U(LB»KR)  ♦ Gva  ,LE,  0,0) go  10,5321 

To  TO  5J92 

5391 0»  -U(LB.KR) 

GO  TO  1100 

—539? . CONTINUE  

280  CONTINUE 

c 

C ASSIGN  PAYOFFS  TO  SIMPLEX  M*TRlx  PlVOy  IN  NEW  CONSTRAINT 

C PIVOTING  IN  A ROW 


NRQWS"NR0WS*1 


Do  300  K»1*N0 

c given  jbig 

30Q 

AS(NPOWS.K)  ■ -<U(K, 

CONTINUE 

1 JBlG> *GVA) 

NROWMl«NROWS-l 
OQ  302  K-ltNROWMl 

AS(NROWS*NB*K)  -0,0 
ASlK.NBtNRQWS)  ■ 0.0 

302 

CONTINUE 

BS<NRQWSl-  -Up 

AS (NROWS*N0*NROWS) 
I8ASIC  (NRQWS)  . $8 

* 1 • 0 

♦ nRqws 

C 

DO  30l  J-l.NROWMl 

SIHPL3  Oo?  39 
51HPL3  00240 
SIMPU3  00241 
SIMPL3  00242 
SIMPL3  00243 
SIMPL3  00244 
SIMPL3  00245 
SIHPL3  00246 
SIMPL3  00247 
SIHPL3  QQ248 
SIMPL3  00249 
SIMPL3  00250 
SIHPL3  00251 
5IMPL3  00252 
SIHPL3  00253 
SIMPJ.3  00254 
SIMPL3  00255 
SIMRL3  00256 
SIHPL3  00257 
S1MPL3  00258 
SIMPL3  00259 
SIMPL3  00260 
SIMPL3  00261 
SIMPL3  00262 
SIMPL3  00263 
SIMPU  00264 
SIMPL3  00265 
SIHPL3  00266 
SIMPL3  00267 
51MPL3  00268 
SIMPL3  00269 
SIHPL3  0Q27Q 
SIMPL3  00271 
SIHPJ.3  00272 
SIHPL3  00273 
SIMPL3  00274 
SIHPL3  00275 
SIHPL3  00276 
SIMPL3  00277 
SIMPL3  0Q219 
SIMPL3  00279 
SIMPL3  0Q280 
SIMPL3  00281 
SIHPL3  QO202 
SIMPL3  00283 
SIMPil  04284 
SIHPL3  00285 
SIMPL3  00286 
SIMPU3  00287 
SIMPU  0028* 
SIMPL3  00289 
5IMPX1  00290 
SIMPL3  00291 
5IMPL3  00292 
SIMPL3  00293 
5 1 mPL3  _00294 
SIMPL3  00295 
S1MPL3_  0029T 
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PIVOT  BUT  VApTABtE  FROM  CONSTRAINT 

NjEEDNT  WORRY  ABOUT  SLACKS 

If(IRASAClJ)  ,Gt#  NB)  GO  TO  701 
IRAS1-  I^ASIC(J) 

PIVCo.ydBAsl,  JBIG)  +GVA 
NBLa  NB*NROWMl 
QO  30*  !■! vNBL 

AS(NROWS,I)  * AS(NROWS.I) ♦PlVCO*AS(j#I) 
^CONJlNyt 

8S (NPOWS) «BS (NKOWS)  ♦ PrVCO*BS(j) 

CONTINUE 


3 o4 
3f>  1 


Tg^jb!01.  ft  ^acSLtm  P?°?L|M  USE  °U*L  S?MPLEX  «ThOO 
fo  ART  let  Slack  IN  last  row  leave  basis 

SLACK  VARIABLE  is  NFGaHVE 


BASIC  VARIABLE 


LEAVE  1 aNROWS 

0nO  continue 

FINQ  ENTERING 
lfCOL»NB*NROWS 

InOic«0 

60  8oi  i.i.itCol 

JE  <As(LEAyEl,l)  ,gE,  0.0) 

IFtINDiC  «EQ«  1)  GO  TO  8q2 
«|NT|_  -CSIII/ASXLEAV^I,  ly 

INDIC*1 

8n2  CONTINUE 

R_ATlO*„  CS(_I ) / AS  (LEAVE  1 ,IL 

IF (RATIO  ,LE«  RENT)  GO  TO  80I 

IENTfR  »T 

RENT  ■ RATIO 

80I  continue 


GO  TQ  80 1 


1ENTEH  IS  THE  VARIABLE  TO  ENTER  THE  BASIS 

IBASIC  (L£AVE1 ) - JENTER 

PIVOT 
PIVCO 


AS(LEAVEl»I£NTERl 


tfo  *6*  i^uitcol 
as<leavei»i)«  ' as  < leave  itn/ piv c o 

IF  (I  .EQ.  IENTER)  GO  TO  ft05 
CSU)  *CSLI>  - AS ( LEAVER!)  *CS( IENTER) 


8^5  CONTINUE 

BS(LEAVEl)  » BStLEAV^pyPlVfO 

DO  803  J« 1 i NRUwS 
IF(J  ,EQ.  LEAyEi)  Gp  yp  803 


J3_ol 


DO  0n4 
IF  < I .EQ 


AS(J*I) 

, -CQN J I NjJ£_ 


I -1  * ITCOL 
-lENTERj.  GO  JQ  804 


Asljtl)-AS(LEAVE1.I)*AS{J*IENTER) 


6S(J)«  BS(J>  - BS (LEAVE! )#AS(J* IENTfR) 
8n3  Continue  

XNEC«*NEC-BS (LEAVE! ) #CS (tEnTeR) 

-_cs_li  enter  i »o.o 

DO  806  Jal iNHOWS 
8n6  CONTINUE 


5INPL3  00**4 
5IMPL3  9i2f* 
SIMPL3  0*300 
$I*2L1  OIUI 
SIMPL3  0*30! 
Simj  0*3*2 
SIHPL3  00303 
5I*PL3  0*14* 
SINPL3  0*305 
SIHPL3  1*1*1 
SI«PL3  0*3*7 
5IN2L3  0*11* 
5IMPL3  0*30* 
51*n.3  *1110_ 
SI*»L3  00311 
5I"*L1  0f3I2 

SIBPL3  0*313 
SIRPL3  0031* 
SIHPL3 

5INPL3  0031* 
SIRPL3  ooTTr 

5IRRU  0*31* 
SIBPL3  0*31* 
5W1  41121 
SI*PL1  0*321 
11MPL3  **322 
S1RPL3  0*323 
n»PL3  0*324 
5IHPL3  0*325 

SIVL3  *1121 

SINPL3  0*3fT 

nmj|3u 

SIRPL1  0*32* 

swa  juai 
stw.s  iim 
31^1  *1131 
5IWV3  0*131 
31*214  _t«l* 
5IHPL3  0*333 
41NPL3  0*33* 
SIMPL3  0*337 
4IH2L3  0*33* 
SINPL3  0033* 
1IM1L3.  _**!!*_ 
SINPL3  0*341 


3IMPL3  00343 
51HPL3  111A4 
SIMPL3  0*345 


SIMRL3  0*351 
SIMPL3  -*1112 


AS (LEAVEl, IENTER)  ■ 1.0 


SINPL3  0*353 
SIHPL3  00354 
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test  rhs  for  feasibility 


810 


_INFEA3j^ 


TCSTb  0,0 
00  811 


IF{BS(J)  .0 E, 


^■^jNRQWS 


0,0)  GO  TO  « 1 X 


IF<BS<J)  ,3E,  TEST)  Go  TO  811 


SIHPL3  00355 

_find  HOST  negative  ENTRY  TO  LEAVE  BASIS  SIMPU  00356 

SIMPL3  0035T 

5I«PL3  00356 

SIMPL3  00339 
SIMPU  00360 
SIHPL3  00361 
5LNP13  C0362 
5IMPL3  00363 
SIMPL3  00366 


ail 

LE*VE1«J 

CONTINUE 

c 

“ IF (INFEAS-1)  840»8fl0.8o0 

c 

t 

FEASIBLE  SOLUTION  found 
FIND  ACTIVE  BLUE  STRATEGIES 

c 

840 

continue 

GVALb  -1,0/XNEC 

IBCbO 

04’ 

DO  849  X*1,NB 
X(I)  m Q.o 

c 

00  850  IROW.WNROWS 

SEE  IF  A‘SLACK  VARIABLE  Is  BASIC 

IF(IB*5IC(I«0X)  ,0T,  NB)  30  TO  B5o 
IBC.»BC«1 

IBAslalBAS(lBC) bIBASIC( IrOW) 
_ X ( 18AS1 1 ■ eS(IROW)*  aVAl 

850 

continue 

NBg«TBC 

114-0- 

GO  TO  2600 
CONTINUE 

SIMPL3 

3IMPL3 

SIMPL3 


00365 

06166 

00367 


SIHPL3  0Q366 


SIHPL3 
SIHPL3 

00369 

00370 

SINPL3 

SIMPL3 

00371 

00372 

SIMPL3 

00373 

SLMPL3 

00174 

SIMPL3 

00375 

SIMRL3 

00176 

SIMPL3 

00377 

Si  MPkl_ 

OfilTB 

SIMPL3 

00379 

iimi 

00380 

SIMPL3 

00381 

S1MPL1 

003B2 

SIMPL3 

00383 

SIMPLE 

00164 

SIHPL3 

SIMPLE 

si*plT 

0&J87 

StHfLl 

oaiet 

SI*Pl3 

<?0399 

SIH*l 3 

00390 
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SUBROUTINE  CAM 


SUBHQUlINt.  CAM(lULtlOU)  CAM  00002 

C OkTSm  XT  “Cam  00063 

CUUPUiM 


CUMMUK 

NKdU  . NNMU  * ixKHA  * NKKA 

MAIN 

COMMON 

NID 

MA1* 

COMMON 

COMMON 

NPU  * I l)L  1 * IUU]  , IDL^.  1002.  IDL3.IDU3 
1 RO  ♦ JNu  »NhU 

HAIN 

main 

COMMON 

COMMON 

IPHV , IKNU 

IfttPLH? IkEPlR 

Main 

main 

COMMON 

00 A 13. .MDA { 3,90) 

main 

COMMON 

tiAA  Ui^u)  *HAA  (4,90) 

main 

COMMON 

COMMON 

ufcJOK  A | UMgh A 

ShELo(9u) »iHELM(9U) .PttSMLL.PRSMEU 

main 

main 

COMMON 

COMMON 

oShElk  t'io)  • HSHE.LM90) 

FdU(3)  ,l*KD(  J)  ,f-bA(2)  *FHAi2) 

main 

main 

COMMON 

COMMON 

TD'HSHCttuR^Rc 

bORHBl U»3) ,S0KRB2(2.3) .SqRRRi (2*3) ,*ORRR2(2,3) 

MaiN 

MAIN 

COMMON 

COMMON 

I A A » XNOAA » XNRA A * b ALPHA (2.2) .RAtPMA (2,2) 
ttlDHA  (2.4)  . tJ AOK I (4.2)  tRiobA  (2.4)  fRAObl  (4*2) 

main 

main 

COMMON 

common 

bINHA  (2.H)  »Ra“KRI  (4,2)  ,HINbA(2,4)  * RAKd  J (4,2) 
bSAMiR (2,2) .RSAMZd (2.2) 

Min” 

main 

COMMON 

COMMON 

lH3bn,b?KACl,8FRAC2,RfRALl,RFRAC2fFfl¥K,>HSK 

bPAbS (2) .HPASS (2) 

main 

main 

COMMON 

COMMON 

itJAdA,  lNAbA*XNbAb.XNRAb»DPARK*RPARK 
dDKd (?)  » ttOHNS<2)  .dKRS  (2)  *BKRNS(2) 

Main 

main 

COMMON 

COMMON 

ROdd (?) iHDonS (2) ,RKbS (2) ,HKBNS(2) 

dHdjbHMLfdAANi ,b4AN2iB4ASi ,84AS2.b4NSl tB4NS2 »84SN1 »b4SN2 

Main 

main 

COMMON 

COMMON 

HHb,H4MHR4ANl *K4AN2iR4AS1 ,r4aS2»R4NS1*R4NS2.R4SN1»R4Sn2 
EPS*. 

main 

main 

COMMON 

COMMON 

NFKFA,FmFA (I5i *FA ( IS) 
NFHoU,FHdD ( 15J »BU ( 1 5 ) 

main 

MAI^L 

COMMON 

COMMON 

NFRku,F"KQ (15) »RU l lb) 
NH.NK 

main 

main 

COMMON 

COMMON 

PH  (20,3)  »PH ( ? 0 » 3 > 
PROHb ( 3 » 3 ) ♦ PROPR (3,3) 

Main 

MIN 

COMMON 

COMMON 

MOL . MOt 1 

bCHoTtoS^GJ  (3)  .BU*GT(2)  .RC*GT,HS"GT  (3)  ,Ry*GT<2> 

main 

main 

c 

COMMON 

Ova 

main 

main 

COMMON 

COMMON 

0 (TITTH  1 Sub  ( 1 1 , 1 i * 1 1 ) 1 SOR  ( n » 11 » 1 1 > 
V (Ilf  11)  »SVB(li*  11.11)  tSVH  (IltllUO 

main 

main 

c 

COMMON 

i (TI . n 7 [T5WF(  1 1 ) |PWR  ( in  t value 

Min 

MAJN 

COMMON 

doTlT. 9jT  t Koi  (T,90  ) 

main 

COMMON 

d(jO  (3,90)  .KOO  (3.90) 

main 

COMMON 

dOF (90) » hGf (90) 

Main 

COMMON 

d A I (4,*u)  »HAI (4*90) 

hain 

COMMON 

COMMON 

B A U (4*90)  * KAQ (4,90) 
b A K W 0 ) • HMF(9U) 

main 
Min  _ 

COMMON 

HF (90) . KF (90) 

MAIN 

COMMON 

FEHm (Qu) 

MIN 

COMMON 

COMMON 

CBF  (90)  * CRf  (90) 
CbAr  I9u>  *CKAF  (90) 

main 
main  . 

c 

CUUPUlM 

main 

CAM 

QflQ9»  - 

cam  0006s 

COmmOm/CamvmR/  5UrpB(2 *3) ,SURRHf2,3)  Cam  QQQ66 
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COMMUN/CAMVAH/  bA<2,j)fKA<2»3)»db(2t3)*Hb(2#3> 

Lam 

00007 

COMMUN/CAHvaR/  dAN  AA  ( 2 i 3)  t H AKAA  (2*3)  .dSNAA(2,3>  »HSNAA12*1) 

Cam 

0000b 

COMMON TCam VAR/  OAU <?, 3) ,RAL(2*3) *dSL (2*3) *R^L (2*3) 

DAM 

00009 

COMMON/ CAM  VAR/  VdlQRA{2)  f VdAOk  i <%).VKIUHA(2)  , VRADPI  { *) 

Cam 

00010 

COMMON/Tamvar/  bibNG  12»2)  tHSITTvO  t2*2) 

Cam 

oo<m 

COMMON/CAMVAR/  bbfcNG(i) *WPENO(2V 

Lam 

00012 

COMMON/CaM VaR/  dSTb<2*3>  f8AFb(2» 3) ,HSFB 12*3)  * RAF b ( 2 * 3 ) 

Cam 

00013 

COMMON /CAM VAR/  6AVUL (4) * RAOUL (4) * PBAB A ( 2 ) iPHABA (2) 

Cam 

OQOU 

COMMON/ CAM  VAR/  bPQPS(4)  tdPoPNS  (A)  #RP(}PS  U>  |KP0PNS  ( A) 

Cam 

00015 

COMMON/C AM VAR/  VbURS , V BOHNS  * VbKHS ♦ VBKKNS 

Cam 

0Q016 

COMMON/CAMVAH/  vRubS.  VROHnS*  VRKbS,VRKBNjS 

Cam 

00017 

INTEGER  TY»rYb»IYR 

Cam 

QOOlb 

DIMENSION  bANF ,RANF 12* 3) 

Cam 

00019 

FI  A (0)  ■ A2-Ai*al0<j  ( AA)  *AA*#Q-A5*AL0G  ( A6>  *A6**g 

Cam 

00020 

F24  (0)  ■ -A  j*  ( auuG  U4>**2)  *A4**u- Ab* < ALO^ ( AbT##2) *a6**m 

Cam 

00021 

CALL  CLRCOM{ J» 1Ul» IDO) 

Cam 

0Q0.22 

Cam 

ooo23 

z 

DO  LOOP  ON  10 

Cam 

00024 

r 

Cam 

0 0 0 2 5 

DO  3 0 u 0 1U«10L»10U 

Cam 

00026 

~l C6IL  XAMTUR  

Cam 

00627 

i 

Cam 

O0Q2d 

r — * 

STffHTTNS  UlVIbTUFT  INVENTORY  FUR  10  --  ff  AND-  R 

Cam 

00029 

Cam 

uoo3o 

TF  rrO-XT  T5To  tT5TO , f520 

Cam 

ooo^l 

1510 

DO  151*  KbD«ltiVNbO 

Cam 

00032 

T5T^ 

BUlT*aU»fDT  * odaUbDiIO) 

Cam 

00  0 33 

DO  1 5 1 a KRU«liNNHU 

Cam 

00034 

T5iy 

Rbl  (KROt  id)  * MUAURDt  ID) 

Cam 

oooJS 

GO  TO  1600 

Cam 

00036 

1520 

IUMl  * Io-i 

Cam 

00037 

DO  1522  KbD»l*t\KBD 

Cam 

Oqo3« 

152* 

BDI (KBU * ID)  * BUI URD*IDM1)  - bDD ( KBD  * I dm  1 ) ♦ bDA {NbQ* ID) 

Cam 

0 0 03V 

DO  1 52A  kRD»1 tNKRU 

Cam 

U Q 040 

RDl(KHOflD)  vHJl  (KRQf  1DM1 ) -HDD  (NRD»  10*1 ) ♦ KDMKRD*lD) 

Cam 

00041 

152* 

continue 

Cam 

00042 

C 

Cam 

00043 

c — - 

GROUND  F I HLRO*C.K  Fow  ID  — H and  R 

Cam 

0fi044 

c 

cam 

00045 

1600 

BGF(IU)  ■ 0. 

Cam 

0fi046 

DO  XbTiT  KbU»l  »NNbU 

Cam 

000*7 

1610 

BGF(lU)  « dU  I ( NbD  * 1 D ) * FbD(KbD) 

Cam 

0QQ4b 

HGFOoT  > u. 

Cam 

00049 

DO  A62U  KRU«1»nnrU 

CAm 

00050 

RGF (IU)«  KOI CKhDf I0)*FRD(kRD) 

Cam 

ooo  5^1 

1620 

CONTINUE 

Cam 

00052 

C 

Cam 

0 0053 

C 

SMELTER  INVtNlDKY  FOR  ID — b AND  R 

cam 

00054 

C 

Cam 

00055 

IF(lD-i)  1621*1621 ,1622 

Cam 

OM56 

162* 

CONTINUE 

Cam 

00057 

SHELb(lU)  * bntLbUDMl)  - BSrtELMlOMl) 

00058 

ShELRUU)  * bNtLHUDMl)  - RSMELMIOMI) 

Cam 

00059 

GO  TO  1623 

Cam 

00Q60 

1621 

CONTINUE 

CA” 

00051 

SHELdU)  * PdbnEL 

Cam 

000*2 

bHELHll)  ■ RRbrltL 

Cam 

00053 

16?3 

continue 
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io  -jo 


S r AH  T 1 -vb  AiHCHMhl  inVEnTuNY  FOH  ID--  o 


AND  h 


__1F  ( Xu-i)2Uiu,^uiu>2o2u 

Zc  i cr  ou  2ui*  kbsbi  ,t>.KbA 

dQ  [Z  BA  I (MJA  • IU  J *rlMM  (KOA,  IU) 

DO  20  i A KHA*  1 ,im*MA 
£01*  HAl  INhAi  ID)  = KM*  ( HwA,  ID) 

ijO  To  dobu 
dQgU  I L)M  1 ■ lU-1 

DO  dudC  *BA*1  t ixf\BA 

d{j?d  BA  I (KhM  IUJ  »Ha1  (KdA,  I UMj  ) -tj  AV  ( KB  A , I DM  1 ) ♦BAA  t KBAt ID) 
DO  *02*  KHabi  ,hMiA 

(K«Aj  IU)  »kh1  ( NR  4 , 1 Dm  1 ) - MAD  ( NN  A , IDM1  > «RAA  ( KHA  , IQ) 
dG?4  CO'vIl^Ut 


C 

c 

*QSu 

~dQ$d~ 

205t> 

*0hU 


OETtBM Xnu T iON  Oh  AND 

a1*CK*M  ASSIGNMENTS — blue  and  KEM 

COn  I I'lUt 

IF (art  l ( 1 ♦ ID) -uodkaj  *uai »20b2»*0b2 
AbOKA  att  A 1 l l t 10) 

DA  A is  0 * U 

GO  fU  dpbj 

AB«JHM*UBOnA 
bAAS»  BAll  l , ID)  -MBQHM 
' IF (KAi (ITTD) -ukChA)  2o5*,2o^5**j55 
aRuHABKaI 11 f i v) 

haaSbo.o 

bp  <u  2obo 

AROMmBURQNa 

HAAS*  NAlll > i O) -UROKA 

CONTINUE 

CON  f 1 HUE 


Cam 

00005 

Cam 

OOQi* 

Tam 

00067 

Cam 

00061 

Cam 

0 00*9 

Cam 

00070 

Cam 

ooo  1 1 

Cam 

000?2 

Cam 

oooTJ 

cam 

oooH 

Cam 

00075 

Cam 

oooto 

Cam 

00077 

Cam  _ 

000*6 

Cam 

oooTC 

Cam 

OOQiO 

Cam 

00081 

Cam 

000*2 

Cam 

00063 

Cam 

000*6 

Cam 

000*5 

Cam 

000*6 

Cam 

0006? 

Cam 

009}* 

Cam 

ooolo 

Cam 

000*0 

Cam 

000*1 

Cam 

00092 

Cam 

60093 

Cam 

000*4 

Cam 

000*5 

Cam 

000*6 

1 FU*  i 
I F U U 


.GE . I oLd ) I P l ■ ? 


IULJ) 

• [) 


IPU*  j 


IF  CIO  • Gb • 

SlNnaSLMK 

DO  *0ol  iS=  ii3 
BA ( 1 ,*S) bFhQFo  IMS, IPU) »BAAS 
KA  l 1 *HS>)  bFKOHb  l Mi,  tPU)  *KAAS 
BA  | 12 !_,  MS)  * H A 1 (MS»1  , ID) 

HA (*,mS)  * pm M MS* i, ID) 

S>J  MB  »3UHb»  Mm  , MS) 
SOMHaSUMH ♦ Km i 1 , MS ) 


KANAS*  RA*b-;>'-Mk 


iQHT  XL  mA|Ej  FUw  bLtJF  AND  HEP 

IF  ( lu-iDDiKC)  *uqQ,20rtbi 2QBS 
2&MU  CON  I Ik-uF 

Do  *QBl  I TbI id 
DO  *ool  I'lSsltJ 
SOHKB  (1  Yti'lS)  = SORRHl  (TY,WS) 


CAM 

Cam 

. cam 


cam 

_ci«_ 


Cam 

Cam 


Cam 

cam- 


cam 

cam 


Cam 


CAM 


Cam 

Cam 


Cam 

C^ 

_CAM- 


Cam 

cam 


00099 

00190 


00X01 

-9019?- 


00X03 

-00199. 


00X05 

JXM10- 


00X07 

OOlQO 


00X09 


dOhi  CONTINUE 

CAM 

OQxio 

BANM^a  dAMb-SPMb 

Cam 

ooili 

OQlf? 


00X13 

Mi 


00X15 

00116 

oouT 

-QflllL 


00X19 

00X*0 


*Udi 


COnI InUE 
bf mmC*bpk«C1 


Cam 

_Cam_ 


00121 

ml? 
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20«b 

GO  TO  2qB9 
CONTINUE 

Cam 

Cam 

Cam 

Cam 

001*3 

Ml|A 

00125 

00126 

00  2066  1 Y-I *2 

DO  20*6  mS-1*3 

2086 

SoRH0iTY*M5“)  ■ S0RRB2  ( T T » MS) 
CONTINUE 

Cam  ~ 

Cam 

0 ZU7 

0Ql*B 

208? 

"bFRAC«BFRAC2 

CONTINUE 

Tam  ~ 
Cam 
Cam 
Cam 

001** 

0q1*C 

2090 

If (ID-IDRSRC)  2 0^07209^,2095 
CONTINUE 

ooHr" 

001*2 

00~ZqTI  TT-T72 

Cam 

ooTJ3 

DO  2091  MS-1*3 

Cam 

00134 

ToMrTTyihT)  -'SOrrrI  (TY *mS) 

~Tam 

ooO* 

2091 

CONTINUE 

Cam 

00136 

RFRAC-RFRACl 

Tam 

uoiTT 

00  TO  210U 

cam 

001*6 

2095 

” Continue 

Cam 

0 01*9 

00  20V6  T Y • 1 1 2 

Cam 

0Q1A0 

DO  7o?6  M$-l»3 

Cam' 

0 0 1 A l 

SORRRUYiHS)  ■ S0KRR2  (TY  «MS) 

cam 

001.42 

To95" 

CONTINUE 

Cam 

00 1 A3 

RFHAC-HFRAC2 

cam 

00 1 AA 

C 

Cam 

001A5 

C 

Cam 

00 1 A6 

C AIRCRAFT  DESTRUCTION  — AIK  TO  AIK  INTERACTION 

Cam 

001A7 

C 

Cam 

0 0 1 Afe 

C 

Cam 

001*9 

2 1 QO 

CONTINUE 

0615O 

C 

Cam 

*aUl 

C SUMTIE5  FOR  dLUE  mnD  RED 

U0152 

C 

Tam 

0*115 

DO  2101  TY*i #2 

Ca- 

DO  2101  MSsIfJ 

Tam 

POliS 

BS(tYiMS)  ■ dM(TY,MS)*S0RR8(TY»MS) 

P01M 

RS  < f>  • H"5  > ■ WA(TY,MSJ*50RRK(tY»MS) 

Cam- 

£&T57 

BANF (1 Y*MS) -NmnF <TY*M$) * 0.0 

Cam 

00156 

IF  (S0^«8  ( TY.mS)  ,lT.  1.0)  bSNTTTY",MS)  .Ba  (TY, m5) * <1 . 

-^ORRBtTYvMS)  ) C^AM 

coil* 

IF ( SOhHR ( f Y * Hi ) *LT.  1.0)  MAN?  ITY ,mS) «RA (TY  *hS) • ( 1 • 

-SORRR ( T Y * MS ) ) CAM 

00160 

2 1 ol 

continue 

Tam 

00161 

BITS-  BSU,j)  ♦ BS  (2. 3) 

Cam 

00162 

"BATS-  6$TT*T ) ♦ blo»2)  *BS(2ti)  ♦ 8 S ( ? 1 2 ) 

Tam 

00 163 

RITS-KS ( 1 »3)  ♦ RS(2,3) 

Cam 

0 0 1 6A 

RaTS-  RS  (If  l ) ♦KSU,2)  ♦ RS  (2t  1 ) +KS  (2'2> 

Cam 

ooiTs 

c 

Cam 

00166 

C 1 

Checks 

Cam 

00167 

c 

CA«  .. 

0Q168 

IB  I RA* 1 BAH  1 ■ j 

Cam 

001<>V 

IF(RATS  .LI,  1.  .OR.  BITS  .LT.  I.  ) IBJka-1 

oot;o 

IF ( R 1 1 $ .LT,  1.  .OR.  BATS  .LT*  1.  ) IdAKI-1 

Cam 

00171 

c 

Cam 

QOi  t2 

c 

Computing" average  detection  parameters 

Cam 

00l33 

c 

Cam 

m4‘ 

2180 

CONTINUE 

Cam 

00135 

IF  ( IBIRA  .EO.  i)  GO  TO  2185 

Cam 

aoilS 

DO  ” ?l8i  TYB  »lt* 

Cam 

ooTTT 

SUM-  O.o 

Cam 

001*8 

DO  <Tl  02  ” TYH  »I»2 

Tam 

ool  79 

DO  2182  MSR  ■!  »2 

Cam 

0Q160 
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I Nl)H*  MSN*  ?*  I I YK-1  ) 

SUM*_  SUM*  B i UK  A ( T Yd.*  I NQR) »HS(TVR»  MS* ) 


SUM/RaT* 


2TbI  cunTTnUE 

_ VMIUKA 1 T Yb ) 

<2 1 H 1 CONTINUE 

1FJ_I*A  .til.  L)  GQ  TO  2l6§ 

UO  2iaJ  I YR* 1 *2 

DO  2 1 o3 HSR*i *2 

INUH*  mSH*  2*OYH-i) 

SUM*  u » 0 

DO  2ld4  | YB* 

SUM*  SUM* 


A *2 

KMDbt  auOM*TYB)  *B_b(TYb*3| 


Cam 

-§53- 

Cam 

Jaw- 


CAM 

1ST 

-§fr 


001*1 

gai;? 


001*3 

oo  Ur 


ooiM 


ooi*» 

-m- 

♦ 2 


216** 

CONTINUE 

Cam 

6oU3 

VRAUBl ( INUM) ■ BUM/Rl)S 

Cam 

001*4 

*2T  hT 

CONTINUE 

Cam 

Solti 

218b 

CONTINUE 

Cam 

ooioo 

ir (IbAHI  .Eq.  n GO  To  ?200 

Cam 

i*t*T 

DO  *180  1 YR  *1*2 

Cam 

001«* 

SUM*  J.Q 

Tam 

00  if* 

DU  218/  TYb  *1*2 

Cam 

002*0 

DU  2187  MSfa  *1*2 

Cam 

ootfl 

1 NUB*  MSB*  2* l 1 Ytt-1 ) 

Cam 

00202 

SUM*  SUM*  rtTUdA(TYR. indb) *bS(Tyb,msb> 

Tam 

ioiii 

2ld  ? 

CONTINUE 

Cam 

***** 

VNIUBA (TYkI sSU«/dATS 

e*5 

00201 

2 lab 

CONTINUE 

Cam 

00204 

IF  ( 1 A A ,tu,  i)  GO  TO  2200 

*0207 

DO  2188  j YB"  1 * 2 

Cam 

0020* 

UO  Hie8  MSB*1*2 

cam 

00204 

1 NUB*  MSB*  2* l f Ytf-1 ) 

Cam 

OQ2iO 

SUM*  0*0 

Cam 

00211 

£0_2l89  1 YB*  1 f 2 

Cam 

00212 

SUM*  SUM*  OAUHI UNDB.TYR) *Rb(TYR.3) 

cam 

00213 

2lH* 

continue 

Cam 

00214 

VBAUHi ( I Nob) *Sum/rits 

Cam 

0021s 

21dti 

CONTINUE 

Cam 

oa»}> 

?20  0 

con  r i<nue 

Cam 

**Sn 

C 

Cam 

9*j)« 

Choose  oEsIhlo  method  op  attrition 

Cam 

iollf 

C 

STaIEmEnT  numbers  in  2200S'FOH  FIRST  METMOO 

Cam 

C ' 

STaIEmEnV  numSEPs  In  2300S  TOw  SECOND  *EThOU 

Cam 

loin 

c 

Cam 

«*?** 

IF ( IAA  .to,  V»  GO  Tu  2i00 

Cam 

0*133 

c 

Cam 

**«♦ 

c 

BLUE  TNTERCtHTuhs,  RED  ATTACK^ 

Cam 

00231 

c 

Cam 

oo2>* 

IFUbiHo  .EQ.  11  GO  10  2249 


c HLUE  INTEHCEPlUrta  MLL  RED  ATTACKERS 

£_ 


RATS1*KaTs/XnbaA 
DO  *2l  0 


TYR 


*1*2 


-§58- 

Cam 


Cam 

Cam 


0f22T 

PQgf*- 

oiUT 


JiilU 

00239 

00230 


DU  2210  MSR 

INUK*  MSP*  2* t IYK-1 ) 


■1*2 


PRGU*i  .0 

DU  222u  TYB  »1 *2 

Al>  U.-U.-vtsiUKA(TYB)  ) **RAT$i  ) /RATSl 
xlb«AMMXl  10.0*  l.-BI*RAlTYBtINUR)»Xl) 


CAM 

Cam,. 

Cam 

_Cam_ 


CAM 

Cam 


002J7 

mJi_ 
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PROD-  PROD*  A 1 (BS  HYbf3) /AND A A ) 
22?0  CONTINUE 

RSKAA  (TYfttMSK)  «Hb(TYH,HSR)«  U . -RROD » 
^22 1 0 CONTINUE 

C HED  ATTaCKErS  KILL  blue  I NTERCEP I ORS 

c ' " 


blTSl«blTi/XNO*A 
DO  ~ 2230  TYB  «i.2 

PRQDai.Q  _ 

DO  224U  TYR  *\%d 

_ _J)0 2240  MSH  ■!  ,2 

INOR«  MSR»  2»<TYH-i ) 

Al»  U <1  .-VRAUbI  tlNUR)  ) **B  X T S A ) /BlTSl 
Xl5*A*AXl (O.Qi  lt-RAKBl ( iNDKiTTb) *X1 ) 

PROD-HHOD*  Xib**(RS(TYH#MSR)/XNBAA) 

T240  contTnuT 

' 6SKAA  < TYB  »3 ) ■ tiS(TYb>3) • ( 1 .-PWQP) 

2230  CONTINUE 

GO  TO  22bo 

224V  RAKAAU.l)  bRANAATi  ,2Ta7TAKAAT7#T)  *RAKAaTJ>»21  .0.0 

RSKAA  (l*U"RbNAA  ll,2)«RS>KAA(2*i)«RSKAA(2t2)  - 0.0 

BSkAATl  r31  «T  bJ>KAA(2»3~T « 0 .6  ‘ “ “ 

BAKAAU.3)  ■BmkAA(2,3)«0.0  


~22W  Cc^TTNUE 
C 

c red  'Interceptors*  blue  aTTac*pr$ 

c 

IF (1BAHI  *EQ.  i)  GO  TO  2299 


C 

C RED  IMERCEPTUhS  A ILL  BLUE  ATTACKERS 

c ' ~ 

BATSl"BATS/XNhAA 

00  2260  TYB  «lt* 

00  2260  HSb  * 1 • 2 

I NUB»  WSB*  2»tTYB-l ) 

PR0U-1.0 

00  2270  _TY_^  «1i2 

XI  * U.-(l  •-VHlDbA(TYR)  ) ••BATS'l ) /BATSl 
XI 5»AWAX 1 (O.U»  l»-RlKBA(TYR»lftUb)«Xl> 
PROD  ■PROD  *Aib**(RS(TYK,3) /XNRaA) 

2270  CONTINUE  _ 

BSKAA  (TYb »hSOi  «BS{ TYB, MbB)  *U  .-PROD) 

2260  CONTINUE 

C 

C bLuE  ATTACKEHS  MLL  RED  INTERCEPTORS 
_c  ~ “ * 

RITSI-HITS/XNMAA 

OQ~^  2280  TYR  *172 

PROUmUQ 

00  22V0  rYB-A#2 
__  DO  22VQ  Rb6»1.2 

INOBa  MSB+  2*UYb-l) 

Al« (I (1 .*VBMURI ( INUB)  )**RITSI)/R^TS1 

XI 5* A M A X 1 < 0 , 0 » l.-BAKRI ( INOb,TTH)*Xl ) 
_ PRODaPROD*  Aib»*(PS (TYB, MSB) /XNRAA) 
2290  CONTINUE 

RSKAA(TYRi3)»Rb(TYR,J)»<l.-PROU)  


Xam 

002lv 

Cam 

00240 

Cam 

00241 

Cam 

00242 

Cam 

002*3 

Cam 

0Q244 

Cam 

00245 

Cam 

0 Q246 

Cam 

002*7 

Cam 

00**6 

Cam 

00249 

Cam 

Cam 

0Q2b0 

002*1 

9Am 

QQ*« 

Cam 

00253 

Cam 

0Q2&4 

Cam 

00255 

Cam 

0Q256 

Cam 

002*? 

Cam 

0Q25b 

Cam 

002*V 

Cam 

00250 

Cam 

002*1 

Cam 

00262 

Cam 

002*3 

Cam 

00264 

Cam 

002B5 

Cam 

00266 

Cam 

002*7 

Cam 

0Q266 

Cam 

00269 

9am 

00270 

Cam 

00271 

Cam 

00*72 

Cam 

00273 

Cam 

Cam 

002*5 

Cam 

Cam 

00276 

002T7 

Cam 

0 0 2 7b 

Cam 

00*79 

C^m 

002&0 

Cam 

00261 

Cam 

00262 

Cam 

00283 

Cam 

0 0 2 64 

Cam 

002*5 

Cam 

00266 

Cam 

00267 

Cam 

00268 

Cam 

00269 

Cam 

0_0*90 

0 02V 1 
00292 
Q02V3 
0029* 


00295 

0-0^96 
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228  U CONTINUE 

GO  TO  24(Ju 

22yy  dskam [ i rr> 

bA*AA  ( 1 , 1 ) 

*o?I\Am  ( ] ,2)  * a$KAA(2,l)  ■ 
■om^a«(i,2)  ■ 0AKAA{2il)  ■ 

ttSKA*<2#2)  * 0*0 
0 AKA* (2*2)  • Q. 0 

Cam 

Cam 

002.7 

002*0 

Cam 

Cam 

002*0 

»03«0 

RSkAa U ,3) 
KAKAA (1,3) 

* R S K AA (2*3)  * 0*0 

* MAKAA(2,3)  * 0*0 

Tam 

Cam 

To  151 

*03*2 

GO  TO  Z4U V 
2300  CONTINUE 

Tam 

Cam 

inn 

® 0304 

C 

C ALjEKNATE  ATTRITION  SCHEME 

Tam 

Cam 

iiiil 

*01«* 

c In  this  mTtkhiun  ^Ethou  attacker?  shoot 

C ENGAGtU  OY  THEM  AND  THLN  ONLY 

AT  INTEHCEpTOrs  only  iT 
U .-ALPHT>  OF  Jhc  time 

Tam 

Cam 

oifiT 

c 

C CLUE  iNlERCLHTUMSt  REU  ATTACKERS 

Cam 

Ca* 

*03*. 

«()1* 

C 

Cam 

00311 

IFUbiKA  . 

ED.  1)  GO  TO  2349 

cam 

00312 

c 

Cam 

00313 

C MED  ATTACKEHS 

killed 

Cam 

OOlU 

c 

Cam 

0031* 

KATSl*KATS/XNDMA 

Can 

*03t» 

DO 

DU 


23 10 
23 1 u 


TYH 

«Sk 


■1*2 

Ki±* 


INUHs  MSK*  2*UVH-1  ) 

PRU01«PR0u2si  .U 

231  i Tyh  »l«2 

■ (A .-VOiUKA (TYH) )#*RMjSi)/RATSi 


D( 
A 1 1 


U • 


MSBAMAXl  (U.Ot  1 •-RINKAtTYB*  iNUfl)  *X1 J 
*2  *AMAXl(Q.U»  1 • -x 1 ) 
>ROOl»PROUl*Aib«* (HS (TYb, 31 /ANttAA) 
PR0U?*PR0U2*4C  *•  <BS(TYd*3)/ANbAA) 


'23TT“ 


continue 

RSKAA  UYHiMSR)  *HS  (TYN,hSR)*U.-PHOD1 ) 


2310 


KSF.NG  1TYH»msk)«N1>(TYH»mSR)*(  l .-PR002> 
continue 


bLUt  INlERCtPTORS  KILLED 


UENUM*  hSU,  Jl«V0|DkMl  ) ♦ dS(^,3j*VfllURA(_2j 

bPENG U ) ■ i US  lT*  3 ) *YdlDRA (1 ) ) /DtNOH 

BPENGt2)»(bS(2  0)»VblDRA(2)  ) /DENOm 

DU  2320  TYH  "1*2 

SUM*  Jj.Q 


DO 

_D0_ 


2321 

2321 


TYH 

MSR 


■1*2 


INUHs  MS«>  2*  l F YH- \ ) 

SUM*SUM*  KSENot I YR.MSH)  sRAKBl < INDR  * TVB) *PPENG ( TYtf ) ♦ 
i U.-HALPHm{TY«*m5R)  ) 

2321  CONTINUE 


23?0 


HSKAA ( lYb*3)*»UM 
CONTINUE 


'GO  TO  23bo 

234  Y RAKAA(itl)  »RaNmA  ( I »j  ) sRAKA  A (j^*_l ) sRAKAA  (|f  2j  «Q»0 


KSKAA (1,1) *RSAAA [ 1 ,21 *RSKAA  12* i ) *RSkAA (2.21  * 0.0 

HSKAAll.3)  * PSKAA(2»3)  * 0*0 

oak  a a UTTT 


■ OMMM  (2,3)  *u,0 


^3b'J  CONTINUE 


HEO  INTERCEPTORS*  djjjE  ATT  ACKERS 


Cam 

Cam_ 


Tam 

,£am_ 


TIT 

Cam 


Tam 

Cam 

~Tam~ 

Tam* 

Cam 

“Tam* 

Cam 

Cam 

Cam 


TTm 

Cam 

~Ca iT 

CAM 


Cam 


CAM 

4am_ 


y* 

Cam 

TUS- 

CAN 

TaV 

Cam 

TapT 

CAM. 


Cam 

Cam 


• 0)17 
•Olio 

-5Hlr 

"ISi 

• •324 

nm 

00320 

OillT 

juj; 

•oil* 

003*1 


mi 


00 


!!! 


IHn" 


_AA 


& 


»»H» 


OIlM 

t««9_ 


003*1 

!!iJf 


«|j*» 

00301 

MlR 
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c 

IF  ( I b I .EQi  n 60  10  2399 

c -- 

C BLUE  ATTACKERS  KlLLtU 

C — — 

BATS  I "BATS/AHHA A 
X>C>  2355  Tyh  *1,2 

DO  23ftu  MSB  *1  %'c 

INua*  hsb* -2#(TYb.yi 
PR0Dl«PR0U2*l.Q 

2361'  mr  m»2 

XI*  U.-d.-VKlDbA(TYR)  )#*bATSi)/BATSl 

~*TT»AMAX  1 ( 0 .DT  T. -rIkBATTyR * I ROB ) * x 1 » 

X2  MWAX1  (Q.Qt  1,-xD 

PfcODl»PRODl*AT5**  fRS (TY^i3) /XNRaA) 

PR0D2«PR0U2*X2  •* ( RS ( TYM , 3 ) /XNRAA ) 

^ZJbl  CONTINUE * 

BSKAA(TYB»MSd) «BS (TYbtMSB) • l 1 ,-PROOl I 

BSENQ ( TyBTHSBT «BS (TYB»h5b) * ( U-PR002) 

236*  CONTINUE 

r * 

C REO  INlERCtPTORS  KILLED 

C 

OENOW  RS(1 ,3J ♦VHIdba ( i ) *RSt2* J) •VRIO0A (2» 

RPENGi 1 ) » 4 RS 1 1 »3) •VRIOBA ( l ) ) /DtNOM 

RPENGJ2J  ■ (RS  (20)  •VRlDdA  (£ ) 1 /dEnom 

DO  237U  ' TYR  •ItZ 

SUM*  0,0 

DO  7371  TtB  "V 1 ,7 

DO  2371  MSB  *l,i 

j^B*  MSB*  2MTYB-1) 

SUH*SUM»  dSENO { T YB,MSB) »BAKRl ( 1N0B , T YR > *RPtNO ( T YR) • 

T {l,-ttXLFMA{Ttb*MSB) J 

2371  CONTINUE 

“ ‘ R$K'A'A"(TyR»3)  ■ — SUM  

2370  CONTINUE 

GO  TO  2400 

239*  BSKAAU,1)  *8SKA A ( l , 2 ) ■ BSKAA  (2*1)  ■ bSKAA(2,2)  * 0.Q 
BAKAAU.rr  *BAkaA  ( 1 ,75  « BAKXA  (2*1)  *TO<A*t2i2)  * 0*0 
RSKAA (1,3)  ■ KSKAA (2*3)  * 0.0 
1*1x7411,3)  * hAkAa (2»3)  * 0*0 
24Q0  CONTINUE 
C 

C JjRST  RtV^SltD  A [Tack—  SUBTRACT  UUT  AIRCRAFT  COSSES 
C IN  AIR  to  AIR  INTERACTION 

C ' 

C COMPUTE  and  SUdIRACT  OUT  SORT lE^  LOST 
_ ' " 

IF ( I A A ) 2401  *240 1 1 2403 

240 1 DO  2402  TY«ltZ 

DO  2402  MS* 1 1 3 

bS (TY tMS) m BS<TY»MS)-BSKAA(TYtrtS)  _ 

RS (tYfMS) ■ RS (TYfMS) -RSKAA(TYiMS) 

24jj2  CONTINUE  

GO  TO  2407 

2403  CONTINUE  _ 

DO  2405  1 Y*  i 1 2 

BS (TY»3)»BS(TY,3) -BSKAA (TY.3) 


Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

CAM 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

Cam 

CA“ 

Cam 

ca- 

Cam 

Cam 

Cam 

Cam 

Cam 

CAM 

Cam 

cam 

Cam 

Cam 


003*5 

003*6 

QQjSt 

GQJS* 

003*9 

Hill 

00342 

0o3i3 

00344 

• 036S 
003*6 
603*7 
00346 
00346 
00370 
00JT1 

00372 

00373 
00  374 

003*5 

003*6 

00377 

00378 

00379 
003*0 

00381 

00382 

00383 
00364 
00385 
0 0 386 
003«7 
0QJ88 
003*6 
003*0 
003$  1 
003*2 
00363 
003*4 
003$5 
003*4 
00397 
003*8 
003** 
0 0 4 0 0 

00401 

00402 

00403 
0 0 4 0 4 
0Q405 
OQ406 

00407 

00408 

00409 
0 Q 4 1 0 
00411 
0Q412 
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HS (TY»3) -Hb( | Y »3)-0S*AA(TYi3) 
b$FbOYf3)«R5FotTY?3)«Q*0 
DO  2405 

bSFB(TY*Mb)»  U1*dA|.PHA(TY,MS)  )*(BSEN&(TYtMb)-diKAA(TY,HS)  ) 
RSFB(  !Y,M5)«U.-RALPRMTy,mS)  ) * ( RSEN&  ( T Y • MS) -R&KAA  ( T Y ♦ MS ) > 
bS (TYIMS) »bS l I YtMS) -bSKAA(TYtMa) -BSFb(tY»MS> 

HS( TY.MS) ■HSU Y*MS)-HSKAA(TY*M>)-R5Fri(tY*Hi) 

2405  CONTINUE 
240?  CONTINUE 

C CONVERT  SORTIES  LOST  TU  AIRCRAFT  LOST 
C FIND  KErtAlNiNO  NUMBER  UF  AIRCRAFT 

C 

00  2410  JY*1»2 
DO  ~24lO  ms»1  »3 
SRB»AMAX1  1 1 .vmSOHRB  (TY»MS)  ) 

SRRi~aMAXI U .uT50RRR  (TY»M$>  f 
bAFbJ rY,MS)«daFblTVtHS)/SRB 
RAFB(TrtMS)MrtSFB(TYtMS)/SRR 
BAkAA  ( T Y *MS)*t>SKAA(TYtMS)/SRtt 
RAKAA  <TY  »RS) *hSKAA (?Y  tMS> /SRR 

bA(TYtMS) «bA l I YiMS)-BANF (TY*HS)-bAFBtTYfHS)«BARAA(TYiHS) 
RA(TY»MS) ■RA(Ty»MS>-NANF (fY*HSr-HAFB l T Y • MS J -RAKAA < Ty • MS) 
2410  CONTINUE 
C 

C BLUE  AND  HEP  SARS  ANQ  £tCON£)  REVISED  ATTACK 
c y I NO  AND  SUbTRALI  uuT  SORTIES'  and  AIRCRAFT  KILLED  BY  SAMS 

C 1_ I‘. 


DO  2415  FY«l»2 
bSL(TY*3)»RSLlTY*3j«  Q?0 

24IS 

DO  2416 

bSL ( T Y *MS) ■ HSAM28(TYfMSl*bS<TY *MSi 
KSlUr  »mS)«  toSAMXR  (TYiMS>4RS(|?»MS) 
CONTINUE  

2415 

continue 

DO  2420  1 Y*i *2 

00  2420  nS«i»J 

SRd-MMAXl ( 1 « U * SOkRh ( T Y * MS ) ) 

SRH«AMAXl  F i • U » SOHRR  (Ty»MS)  ) 
bAL { T Y » MS) * bSL(Ty.mS)/SR8 

RAL(Tr»MS)e  k5l O Y ,MS) /SRR 
bS { rt.MS)*bS(l T »MS) -bSL(TYfMS) 

2420 

bA {TY  »MS>  *bA  i 1 Y *MS) -bAL (TY*HS) 
RS(Tr  »MS)sKSU  YtMS)  -HSL  ( TY  * MS) 
^RATTYiMS) *NA(Tt»MS)-RAL iTY.MS) 
CONTINUE 

C 

C 

C 

C 

aircraft  destruction— airbase  aftack 

C 

c 

BLUE  A i RBAbES 

c 

c 

c 

COMPUTE"  NUMBER  uF  BLUE  AIRCRAFT  VULNERABLE  TU  ABA 

bSriEL»SHEtb  ( iD) 

IF  ( SriELd  l ID)  • LT  • bSHEL*0* 

Cam 

00413 

Jam 

0041* 

Cam 

00411 

Cam 

Cam 

0Q4U 

004IT 

Cam 

9A4U 

Cam 

OQ4I0 

5am 

0ft4jQ 

Cam 

• 0421 

Cam 

Cam 

!RH 

Cam 

4o*4* 

Cam 

oiOI 

Cam 

Cam 

01420 

6|ilT 

Cam 

00420 

Cam 

004TO 

Cam 

oo*l? 

Cam 

00411 

Cam 

°o*H 

Cam 

00411 

Cam 

004^4 

Cam 

>g>]l 

Cam 

00«H 

Cam 

0041? 

Cam 

00431 

Cam 

00430 

Car., 

00*40 

Cam 

004*1 

cam,. 

00**2 

CAM 

00**3 

Cam 

004?4 

Cam 

004*1 

ca* 

0044* 

IUm 

0044? 

Cam 

00440 

Xam 

oo**o 

Cam 

904*0 

Cam 

00**1 

Cam 

00*** 

Tam 

rnO 

Cam 

004*4 

Iam 

00455 

Cam 

oo»*» 

Cam 

00**' 

Cam 

0Q**« 

^AM 

004**^ 

CAM 

0Q4*0__ 

Cam 

004*1 

Cam 

004*2 

Cam 

004*3 

Cam 

004*4 

Cam 

004*5 

Cam 

0044*  - 

Cam 

00**7 

Cam 

mil- 

Cam 

004*0 

Cam. 

qqaTo. 

# 
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250* 

2505 


250b 


bAVUL(i)> 
DO  2501 


dANAb 

ms*i t j 


2501 


CONTINUe"BAVUL  n)  4BA  ‘ 1 * *S)  1 1 ,MS)  ♦ oaFq  ( 1 ,HS> 


DO  ^502 

MS-K0A-1 


KBA*2 i A 


J502 


BAVOLlKB^j ■BAi^,MS)*dAFb(2tHS) ♦ d AnF (2,m$) 
CONT INUE 


ABUHAb-AMlNl (MdUHAtbbHELl 
BSHEL1»  dbMEL*A0 y ra s 
A8CJHAN«AduHA-AbGRAS 

BAV^-8AVU^U)4dAyy^(2)40AViJLtiUBAVjL(A) 

BSHELl*AMiNl (obHELl»dAVULT) 

If (BAVUlT  tEUt'fl«oi  bo  Tq  2505 


DO  250*  KdA  * i » NKB a 

(KB*)  ■ ObBfLl*  (dAVU^.  ( KdA)  /dAvut  T ) 

CONTINUE 


DO  2506  NtfA«TtNK0A 

,ar  KAC*_<BAVUL  (KBA)-BPQPS(ABA)  ) 
dPQPS  i K0A  j ■BF^AC*p'Po P5  < K B A ) 

CONTINUE 

^PUF5ll)«BP0P5Tm  ABORA5 
BPOPNS ( 1 ) «dPOPNS ( 1 > *AbUKAN 
BYO I S»BTOTNS*0",1T~ 

00  25 U 7 KdA*i*4 


bT0T$a  BTuTs*dPoPS (kBa ) 
bTOTNS-BTOlNb+BPOPNS (KdA) 
25o  i CONTiKDr 

BTOT»dTOTS*BTUTNi 


ATTACkENS— CQPiPUTE  NUMBER  Of  WED  ATTACK  PASSES 


DO_2509 1 YR«1 »2 

PRAbA  (TYH)  ■ NS  (T  YR,2')*RPASS  (TYK) 

250*  CONTINUE 

HATPbPRABA(I) ♦PH Aqa ( 2 ) 

C 

c Checks 

c __ 

” IF  (NA  IP  .4-T,  i.u  «OR  • BT  OT  .LT*  l,o)  DO  TU  25*8 

c Average  red  effect i veness  paramet eh s 

c 


C 

c 

C 

c_ 


vrDBs  » 

VRKBS  ■ 
TOUBN5  > 
VRKBNS  a 


T KDdS ( 1) *PraBa ( 1 ) ♦_HDbS<2) *FRABA (2) > /RATp 
( HNdS ( 1 ) *HR Ad A ( 1 ) ♦ RKBS (2) *PRA8M < 2) ) /RATp 
( RDbNST 1 ) *PRaoA  {TT  + hObns (2) »PRAba | 2) ) /RATp 
(RKONS ( 1 ) »PRABA  g) *RNdNS (2) *PRA8M  r2) ) /RATp 


USING  APJRROPKIaU.  REd  aITaCK  MODE*  COMPUTt  NUM8EH  OF  dL^E 
KILLED 


GO  TO  (25lU »2S2o t 2530 »2b4o ) i IRRbA 
2510  CONTINUE 

TERHSi-O.u 

I F (faSNEL  «NE«  0. 0 ) TERMS1 - 

1 VRKdS*  ( 1 U.-VRDfeS) ** (BSHEL/XNBAB) ) / (BSNEL/ANBAB) 
XS«A^AA1 (0,q>  1,-TERHS1»( 1.- VRUbNS) » *(bTOTNS/X NbAB)  > 


aihchaft 


Cam 

oo*7 1 

C am 

00*1/ 

Cam 

00*73 

Cam 

oo*  J* 

Ca- 

0 0*  7 5 

Cam 

oo**t» 

Cam 

oo*7  7 

C Am 

OQ*  7a 

Cam 

00*7* 

Cam 

oo*ao 

Cam 

00  1 

Cam 

QQ*»2 

Cam 

00**3 

Cam 

00*** 

Cam 

00**5 

Cam 

O0**S 

Cam 

00**7 

Cam 

OQ*** 

Cam 

00*6* 

Cam 

00**0 

Cam 

00**1 

Cam 

00**2 

Cam 

00**3 

Cam 

oo*** 

Cam 

00**5 

Cam 

00**6 

Cam 

00**7 

CAM 

00**6 

Cam 

00**** 

Cam 

qqsQo 

Cam 

00501 

Cam 

0 0502 

Cam 

00503 

Cam 

OysOA 

Cam 

00505 

Cam 

0Q506 

Cam 

0050  7 

Cam 

0050b 

Cam 

00509 

Cam 

0Q5l  0 

Cam 

Oosll 

Cam 

00512 

Cam 

oosU 

Cam 

0051* 

Cam 

005  I 5 

Cam 

00516 

Cam 

O05W 

Cam 

Oosid 

Cam 

OQ5I9 

cam 

0 052  it 

Cam 

00521 

Cam 

00522 

Cam 

00b23 

Cam 

0052a 

Cam 

00525 

Cam 

00526 

Cam 

00527 

.Cam 

Jfcfl52b_ 
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60  TO  252 1 
GO  TO  252f 


I E N M $ 2 * i.-  *S«*  (RATP/ANb*tt) 

BANb»aToTb*Tt.BMS2 

bSHEL* l ID)  aFBhN*oSHFL*TLRMS2 

TENMfv,  i »U  • o 

IE(bT0Tn5  ,iic«  l,c)  TEWmnI* 

IEK«N2»  t,.  ANh**  (KATH/XNOAb) 

BAKiMS*  ttlolNb*  Ttr»HN2 
_ GO  ro  26 Ou 
£52u  CONTINUE 

IF (rtTuTS  • L T • l.U) 

IF  (bToTnS .LT • i.o) 

CS0=BbHFL/ANOMb 
CNC*  bTOfNb/ANDAB 

CS1S  i •- ( VHKttb/Cbo ) • ( 1 U ,-VHubb) ♦*CSO > 

CS1=  MMAXi (OaUfCbl ) 

CS*CS 1 #* < h ATP/ AMj  AF ) 

CNla  i •- ( VKKBNb/AMI Nl (bPARMCNU)  ) * { 1 • - U . - VROBNb } **CMO  ) 
CNi_»_  amaai  tq.v;,  Cni) 

CN«tM#«  (MATP/A6BAR  ) 
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AOtj«  dAT^/XNHMti 
A3»  (1  .-X4N) **AQti 


A 4 ■ ( (1.-X4SN)/  t 1.-X4N) 

A IS*  R4AL*h4aN*QaTH*«ANS/ <N4d*XNRAd>  M • 
A2S*  (r<4AL*8A  rP/  ( R4R*XMRA0  ) ) * 1Rma5-R4AN*R4NS) 
,A2*A2S^a2h 
A5»  ( 1.-X4inS)  **a06 
A6*  ( U.-X4S)/ (li-X4NS))*«A0tt 

If (RtOTs  *lt.  .oOod  TO ^4 a ‘ 

• OOOJ  ) GO  10  2649 


• LT. 

IF  (KTUTnS  •lT* 


X 0* F 1M0 . i 
X1»F1*  ( 1 . )_ 
I F ( XO  • gC. 

A F ( X Q «U£« 


264i  continue 


.Ainu,  XI 
.AND.  XI 


» GE  < 
• LE< 


u.  i 

0.) 


GO  TO  2649 
GO  TO  2 64« 


USE  NEKTONS  mEThOD 


(JO*  .6 
NTN*0 

2642  ul*UO-FU  Uu)/F24(Q0) 
IF  (AdS(Ql-UQ)  .LT . EHS4) 


T64J~ 


IF  (NT'n 

UO  *ul_ 
NTN«  nTNM 
GO  TO  2642 


GU  lou)  STOP  446 


GO  TO  2643 


Q*  01 
TERMS- 


AU  + A2b*U-A5*A6**0 


TERMnT«a1(N  ♦a2n*U-A3*A4**q 
TEHMS*AmIN1 (1.0* TERMS) 
WOTSVTEkmT 


R A K S 

RSrieLMIU) 


FMSK*RSHtL* TERMS 

TeRmnS) 


RAKNS*RT0)NS*amI^1 (1 
GO  TO  2700 
2646  CONTINUE 

C 

£ use  OM-r  mnti-hqnsheltehed-aIhChaft  hunitiuns 


Te^imS* 

terms* 


R4AL*R4_AN*bATR*R4NS/  (H46*XnRA6  ) * I . - i\ . -X4N$ ) • * (BATP/XRHAB) 
AM1N1 ( 1.0*TFRMS) 


TERMNS*R4AL*R4AN*BATR/  (H4B*XNNAd)  ♦ 1.-U.-A4N)  •*  ( BATR/XmRAB) 
RAKS«  HTOIS*  T tRMS 


RSHELiS  ( IU)  * K«dK«HSNtL*TERMS 
RAKNS«RT0Tns*amIin1  n.Q,  TERRAS) 


2 649 


GO  TO  270u 

continue 


USE  ONLY  ANTI-SHELTER  MUNITIONS  

TERMS-  tii4AU)  *R4AS#HATP/  (R4d*XNRAB)  ♦Ur  < 1«-64S)  *•  (dATP/XNRAB) 
TERMS* AMlNl ( 1 * 0 t TERMS) 

TERMNS*R4AU*H4A^*dATP^R4SN/ (R4d*XNJ5AB> ♦ 1 U .-X4SN) •*  l BATP^ XnR A0 ) 
R AiKS  ■ hT^TS  * TERMS 

hshel* (IQ) *fr6k*rshel*terms 


tAM 

UOa  1 9 

Cam 

QQd20 

Lam 

00d2l 

Cam 

0Qd22 

L Am 

00623 

Cam 

0Qtf24 

Cam 

00625 

Lam 

00626 

Cam 

00627 

Cam 

0062a 

Cam 

00629 

Cam 

00630 

Cam 

006H 

Lam 

00632 

Cam 

006?3 

Lam 

00634 

Cam 

00635 

Cam 

0 Qd3b 

Lam 

0063  f 

Cam 

0Q638 

Cam 

00639 

Cam 

0Q640 

Cam 

00641 

Cam 

006*2 

Cam 

00663 

Cam 

00644 

Cam 

00B45 

Cam 

0Q646 

Cam 

00647 

Cam 

006*8 

L Am 

00649 

Cam 

Op  650 

Cam 

00651 

Lam 

00652 

lam 

0 0653 

Cam 

00©54 

Cav 

00655 

Cam 

00656 

Cam 

0065? 

Cam 

00658 

lam 

00659 

Cam 

00660 

) Cam 

006*>1 

Cam 

0Q662 

lam 

00663 

Gam 

00664 

Cam 

00665 

C AM  _ 

00866 

Cam 

00667 

Cam  _ 

00666 

Cam 

00669 

Cam 

00679 

LAM 

00671 

Lam 

Qu672 

Cam 

00673 

Cam 

00674 

Cam 

00675 

Cam 

00676 
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HAKiMb*HTUlNS*^rtl*n  (1*0*  1 ERMNS) 
bO  To  27UU 

Cam 

cam 

ooa77 

oosre 

dbja 

CONI  IinUE 

KAi\S««AKNS*RSriLUM  ID)  *U.O 

Cam 

Cam 

00079 

ooa&o 

?Tu”S 

c 

CON  f I*UE 

Cam 

Cam 

oobbI 

OQB02 

c 

c 

Total  /UKCKrtj-r  otsi«ucrioN 

cam 

Cam 

00.  *3 

on*®* 

AS*  'J  *0 

IF (UTOTS  .bT>  .0001)  ASaHAAS/tfTUTS 

Tam 

Cam 

00BB5 

00006 

ANS*  J • 0 ~ 

IF  ( M r 0 1 >9S  • bT • .0001)  ANbabAKNb/bTOTNS 

Cam 

Cam 

00087 

00808 

bAU  ( 1 * 10)  *aS*oH(jHS  ( 1 ) ♦ ANS»dH0?^b(  1 ) ~~  ' Cam  Q0BB9 

do  27 ui  i J Cam 0qB*0 


bAini^TlT)  *bAiM  i*  ID)  VtTAKAA  ( i *MS)  ♦UAL  t i *MS)  Cam  OoB*1 


27.il 

CON  f I>nuE 

Cam 

000*2 

'TFTi'iKo A .td.  IOoTJ  2ToJ 

“Cam 

C0tf*3 

DO  27^2  i\riA*2,4 

Cam 

008** 

MS*nom"1 

Cam 

0 08*3 

b A u (aoA. id) 3Ab*bHQPS (KbA) ♦XNS*oPOPNS ( K»A ) *bAKAA (2 »MS) ♦BAL<2**S) 

Cam 

008*6 

CON  1 I«mUE 

“CAM 

00B*T 

27i)J 

continue 

Cam 

008*8 

AS*  0*0 

Cam 

008** 

lFlKTulb  .bT.  .UD01)  aS*RAKS/KTUTS 

cam 

009*0 

ANS*  0.0 

Cam 

00901 

IFOUOlHS  • bT • .Ouon  ans»maknS/htotns 

Cam 

00902 

kau ( i * iij) 3 AS*KMupsu) ♦ans»hpo?ns ( n 

Cam 

00903 

UO  27Ub  MSxitJ 

_Cam 

00*0* 

KAJ  U • lu)*H«U  U« ID) *KAKMA ( 1 *MS) ♦NAL ( 1 .MSI 

Cam 

00905 

27  >o 

CONTINUE 

Cam 

00906 

IF (NisnA  ,LU.  l)  bO  TU  2708 

Cam 

00907 

DO  2/07  NKA*2,4 

Cam. 

00908 

MS*  KNA-i 

Cam 

00909 

KAU (K«A. IU) *AS#hPOPS(KHA) ♦ ANSaKPOPNS ( K* A ) ♦ Mak A A ( g . MS ) ♦«AL<2*MSj 

SAM- 

00,  fo 

2 7 n < 

CONT 1NU£ 

Cam 

00,  u 

27:)b 

con  r i<nue 

CAM 

C 

Cam 

00,13 

C --- 

aIR  FlntPOrttR  * OR  ID  — 0 ANO  R 

Cam 

0Q,|*_ 

c 

CAM 

009T5 

baF (|u)  * 0 • ) 

Cam 

00916 

HAF(IU)  = U.O 

Cam 

"00917 

UO  2ttdl  1 t=  1 »2 

CAM 

00918 

t>AF  ( 1 0 > = bAFliC)  * bSUYtl)#M»A(TY) 

Tam 

009IT 

KAF(IU)  = KAFUU)  ♦ KS(TY,  1)*FKA(TY) 

Cam 

00920 

dU'il 

continue 

Cam 

^09^1 

C 

Cam 

00922 

C 

lOIAL  FAKERuwER  K UK  IU  — H AND  K 

Cam 

00923 

C 

Cam 

M*2* 

oF  UU)  = ribi-  (I  J)  *bMF  ( IU> 

Cam 

00,25 

KF  ( iU) *RbF ( 1 j) ♦RAF  < JU) 

Cam 

00,26 

c 

Cam 

00,27 

c 

FFbA  r OK  iU  

Cam 

oa*p 

c 

cam 

00,29 

FPkk*  mF ( ID) /kF (ID) 

-Sam 

00,  jo 

IF  (bF  HO)  *L  f • HF(IU)  ) GO  TO  2802 

Cam 

00,31 

CALL  C*FX  l NFKFA.  FPFa.  FA,  FRbK.  OF EQM ) 

Cam 

O0,32  - 

— 

bO  10  2b0b 

Cam 

00,33 

2Bu^ 

CONTINUE 

_Cam 

00,3»- 

28fl5 


28 1 U 


FRHB«  «FUO)/oF(ID) 

CALL  CVFX  (NFHh  A*FRFA*FA*FRRb*UFOBA) 

UFEBAi-DFUbA 

CONTINUE 

lF(Il)-l)  281 U ♦ 28 1 0 ♦ 2820 
FEBA (ID) “UFtoA 


L Am 
Lam 
Cam 
LAm 
Cam 
Cam 


00*35 

00936 

00V37 

00*38 

00*^9 


(iO  TU  285u 

LAm 

00**1 

2820 

I DM  1 * 1 D- 1 

Cam 

00**2 

FEba  ( iu)  bFLOA  UUMi  ) *OFEBA 

Cam 

009*3 

C 

LAm 

00*** 

C — - 

DIVISIUN  DESTRUCTION  FOW  id 

Cam 

00**5 

C 

Cam 

UJJ*  *6 

2850 

CONTINUE 

Cam 

00**7 

IFliHtPLB  ,EU*  o)  GO  TO  2851 

Cam 

J)Q9*B 

bDLi  [ 1 • ID)  SQDU  (2f  ID)  -BOD  13*  ID)  «DDO  (A*  1D>  «0.o 

Cam 

00**9 

GO  TU  2855 

Lam 

0 0*50 

?85l 

CALL  CVFMrtFKOU.FRHDtBDiFRBHiPBUiD) 

L Am 

00*51 

OO  2852  f\Bi)ai*NK0D 

Cam 

00*62 

2652 

BQU  (KdUt  IUJadUi  ( K'd6*  ID)  *PBOlO 

Tam 

00*53 

2855 

IFUHtHLH  .EO.  0)  GO  TO  2856 

Cam 

00*54 

KDU ( 1 » 1 D J »k0u 1 2 « 1 D ) «KDO ( 3 1 1 B ) ■hoDTa, To ) *0 . 0 

Cam 

0 0*65 

GO  TO  286y 

Lam 

00*56 

2855 

“TS EC  CVFX  (NFHHU»FRFD»ROtFRBHYFR[n 0) 

Cam 

00*57 

00  2857  r\KO*itNKRD 

lam 

00958 

2857 

^uTKWrruT  * KOI  (KHO,  i0)*P8D1l) 

Cam 

00*5* 

2860 

CONTINUE 

Cam 

00*o0 

C 

Cam 

00*61 

C — - 

CUMULATIVE  TOIAL  and  Aik  FIHEPOwEK  — a AND  R 

Lam 

00*62 

T~ 

Cam 

0 0*63 

287U 

IF(IU-I)  28  75,2875.2881) 

Cam 

0fl*64 

2875" 

CHF ( i U ) «bF ( 1UJ 

Cam 

00*65 

CHF ( IU>  * HF ( 1U j 

Caf 

00*66 

CBAF (ID)  ■ BAF (ID) 

Cam 

00*o7 

CKAF  ( IU)  ■ KAF  UUi 

CAm 

0 Q*68 

GO  TO  290  0 

Cam 

00*69 

C 

.CAM 

QO*  70 

28H0 

I JM1«IU-1 

Cam 

00*71 

CBF(IO)  * CdFUUhl)  ♦ BF(ID) 

Cam 

00*72 

CHF  ( ID)  ■ LKFUuMi)  ♦ RF  ( ID ) 

Cam 

00*73 

CBAF(IU)  m CBmCUUmI)  ♦ OAF  ( 10) 

Cam 

00*74 

CRAF(IU)  a CHAMIUMU  ♦ KAF(ID) 

Cam 

00*75 

29J10 

CONTINUE 

?Am 

00916 

C 

Cam 

00*77 

c — - 

END  OF  UO  LOOP  UN  Ifi 

Cam 

0.0*78 

C 

Cam 

00*79 

30  OU 

CONTINUE 

LAm 

OQ*«0 

C 

Tam 

00*01 

*99* 

CONT InuE 

Lam 

00*82 

RETUKrv 

Cam 

00*83 

END 

Lam 
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SUBROUTINE  CVFX 


H. 


SUBROUTINE  CVFX (M,X*FX, VX.VFX) 

OPTSA  II 

SUBROUTINE  CALCULATE  VFX-FUNCTlON (V*) 
DIMENSION  X (8) ,Fx  l R) 


1*1 

IF<  VX-X(l) )30»2o»10 

lO  DO  12  I*2,m 

iPi_yx.-xm}i5t20fi2 

l2  CONTINUE 

XUIF  . VX-X(M) 

FRAC  . XOIF  / ( X(M)-X(M.l)  ) 

VFX  ♦ FRAC  • i FX(M)-FJ((M-1)  ) 

GO  TO  99 

1 5 XDIF  • VX-X(I-l) 

FRAC  • xniF  / t X(I).X(M)  ) 

VFX_  - FX(I-l)  ♦ FRAC  • ( FX(I)-FX<I-1>  ) 
GO  TO  99 


20  VF X * F X ( I ) 

GO..  TO  99 

XDIF  .1(1).  VX 

FRAC  • XD IF/  ( X(2)-X(l)  j 

VFX  ■ FXUI  - FMAC  • ( FXt2)-FX(l)  ) 

GO  TO  99 


99 


CONTINUE 

RflUftN 

END 


CVFX 

00002 

CVFX 

00003 

_CY FA 

00004 

CVFX 

0000* 

CVF.X 

00006 

CVFX 

00007 

-CVFX 

QqooB 

CVFX 

00009 

CVFX 

00010 

CVFX 

00011 

CVFX 

00012 

CVFX 

00013 

_CVFX 

00014 

CVFX 

00015 

.CVFX 

0QQ16 

CVFX 

00017 

CVFX 

00015 

CVFX 

00019 

CVFX 

00021 

CVFX 

0Q022 

CVFX 

00023 

CVFX 

00024 

CVFX 

00025 

CVFX 

00027 

cyFx 

QQQ29 

CVFX 

00029 

-CVFX 

00030 

CVFX 

00031 

CVFX 

00032 

CVFX 

00033 
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I.  SUBROUTINE  CAMCLR 


SUBROUTINE  CAMCLR 


COMMON/CAMVAR/  SORRB(2,3j »$0rRR(2,3> 

Common/ c Ah v a r/ bA(2,3)  ,ra<2,3)  ,bs<2.3>  tRsi?^) 

COMMON/CAMVAR/  BAKAA ( 2i 3 ) ,RAKAA(2f3) ,BSKAA(2,3> *R$KAA<2#3) 

Cohhon/T*m^*r/  Bv^iSiAf 2T*v4a5ri  **> VvRI0aX?fV^VR*b'B"l  («.> 

CQHMqn/CAMVAR/  " 


COMMON/CAMVAR/  BPENG ( 2) tRpENG(2) 

. COMMON/CAMVAR/  BSFB  < 2«  3i-*B*FBj.2Lt3JLigSFe  (j2j3)  ,RAFB<2.3) 
COMMON/CAMVAR/  BaVULU) *RaVUL<4) ,PBArA(2) f PRARA ( 2) 
COMNON/CAMVAR/  8P0PS(»)  .BpOPNSU)  .RPQPSU ) jRPQPNS  ( 4 ) 
COMMON/CAMVAR/  VflDRS i VBORnS , VBKRS * vB'kRnS 
CQMMQN/CAmVA R/  VrD8S» VRQBmS* VRKB<% > VHkBkiS 
00  3 1*1 »2 

_00_-1  _Je1a2 

BA ( I » j) ■ RA ( 1 1 J) ■ BS(I*J)»  RS ( I • J) *0«  0 
- g^Ljlt J1 ■ R*L ( 1 1 J) ■ BSL ( I • J) * R5L 1 IjJi *0# 0 
BAKAA ( I f J) *RAKAa ( J f J) srSkAA ( 1 1 J) *rSkaa ( I * J>  *0*0 
8SF8(I»J)*BAF8<ItJ)«RSFBf I, Jl*RAFB(Tf J) «fl,Q 
SORRo(IiJ)«SORHR(I»J)«o» 

CONTINUE 

VBTdRA(I).VRIDBA(I)*0. 

PBABA  (I ) bJPRABA  (X)  «o« 

BPENG(I)«RPENG(n«0.0 

BSENQ (IjI) *BSENq (2< I) *o»n  

RSEN0(1,I)*RSENG(2» l)*0.n 

COnTImUf 

DO  5 K * l « 4 

■ VBA0RI(K1*VRAQBI(K)*0. 


BaVUL(K>*RaVUl(K)*0. 
yQP3iK)«BP0PNS(Kl*Rj»flgSxKJ.  *RPOPNS  ( K).0t 
continue 


return 

END 


CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAmCLR 

CAMCLR 

CAMCLR 

CAmCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR^ 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 

CAMCLR 


00002 

00003 

00004 

00005 

00006 
0000? 
00008 

00009 

00010 
ooon 
00012 
00013 
06014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 
00023 
0_00?4 

00025 

00026 

00027 

00028 
00029 
Q0030 
00031 
06032 
00033 
06034 
00035 
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Chapter  V 
OUTPUT 

There  are  two  parts  to  the  output.  First,  input  variables 
are  printed  out  by  subroutine  READ  as  they  are  read  in.  This 
output  is  exhibited  in  Section  B of  this  chapter  (below). 

Second  are  the  payoff  matrices,  game  values,  and  optimal 
strategies  for  the  various  stages.  The  output  of  the  original 
program  was  very  long  and,  thus,  cumbersome  to  read.  Though 
some  of  this  lengthiness  is  unavoidable  due  to  the  backwards 
induction  procedure  used  to  solve  the  game,  a "strategy  recall" 
process  has  been  introduced  to  shorten  the  output  somewhat. 
There  are  now  several  output  options  of  various  lengths  and 
detail,  which  are  explained  in  Section  A (below).  Examples  of 
output,  using  the  sample  data  from  Chapter  II  with  the  various 
output  options,  appear  in  Section  C. 

A.  READING  THE  OUTPUT  - EXPLANATION  OF  OUTPUT  OPTIONS 

The  output  listing  is  generated  as  the  program  progresses, 
and  some  of  the  payoff  matrices  and  strategy  arrays  are  covered 
up  with  new  information.  However,  the  "strategy  recall" 
feature  prints  optimal  Blue  and  Red  strategies  for  period  k+1 
immediately  after  printing  the  strategies  for  period  k.  A 
period  k+1  strategy  pair  is  printed  for  each  possible  realiza- 
tion of  a randomized  period-k  strategy.  This  feature  makes  it 
possible  to  avoid  printing  the  space-consuming  payoff  matrices 
yet  to  retain  the  important  strategy  information. 

The  output  option  is  controlled  by  the  two  input  variables 
IPRV  and  IPRU.  The  number  of  periods  in  the  war  (variable  NPD) 
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also  affects  the  output.  Table  1 describes  the  options: 

Option  3A  does  not  give  strategies  for  all  periods;  option  3C 
Is  quite  long.  The  overall  best  options  seem  to  be  2A  for  a 
two-period  war  and  3B  for  a three-period  war;  they  give  all  the 
strategy  information  with  a minimum  of  payoff  matrices. 


Tabl e 1 . OUTPUT  OPTIONS 


Print 

Inputs 

Output 

4- 

O 

Output 

Option 

Number 
Periods 
( NPD ) 

I PR  V 

I PRU 

Strategi es 
for 

Per i od ( s ) 

Partial  Payoff 
Matrices  for 
P e r i o d ( s ) 

Output 
Length 
(Pages  )* 

1 

1 

1 

1 

1 

1 

1 

2k 

2 

1 

0 

1 ,2 

1 

1 

2B 

2 

1 

1 

1 ,2 

1 ,2 

4 or  5 

3k 

3 

0 

0 

1,2 

1 

1 

3B 

3 

1 

0 

1 ,2,3 

1 ,2 

7 or  8 

3C 

3 

1 

1 

1 ,2,3 

1 ,2,3 

100  to  200 

*This  is  somewhat  dependent  on  NB  and 
strategies  input  . 

NR,  the  number  of  pure 

A "unit"  of  printout  contains  the  following,  in  order: 

• The  notation  "Payoff  Matrix  for  Game  at  Stage"  and  the 
stage  (period) . 

• The  payoff  matrix.  Not  all  the  entries  in  a payoff  matrix 
are  necessarily  computed;  at  the  left-hand  side  and  top  of 
the  matrix  are  zero-one  indicators  (vectors  IBACT(  ) and 
IRACT(  ))  that  show  whether  the  corresponding  row  or 
column  of  payoff  entries  has  not  or  has  been  computed. 

• Except  in  a stage-one  game,  the  Blue  and  Red  pure  strategies 
played  in  the  preceding  period;  these  are  marked  JB  and  JR 
or  IB  and  IR. 

• The  value  for  this  game,  given  the  preceding  period  pure 
strategies.  This  is  marked  "game  value"  for  a stage-one 
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game;  otherwise,  it  is  marked  V(JB,JR)  or  W(IR,IR)  as  the 
game  value  becomes  a payoff  entry  in  a game  at  the  preceding 
stage.  This  value  assumes  optimal  play  in  all  following 
periods.  ( All  payoff  entries  and  game  values  represent 
values  of  the  selected  MOE  on  day  MOET , not  at  the  end  of 
intermediate  periods.) 

• The  notation  "Blue  and  Red  Strategies  for  Period"  and  the 
current  period. 

• The  optimal  strategies.  These  are  output  as  two  rows — the 
first  for  Blue,  the  second  for  Red.  Each  row  gives  proba- 
bilities for  choosing  the  input  pure  strategies  for  that 
side,  in  order.  Of  course,  strategies  in  preceding  periods 
have  been  played. 

• Except  for  final-stage  games,  the  optimal  strategies  for  the 
following  period.  There  is  output  a strategy  pair  for  each 
possible  realization  of  the  randomized  strategy  for  the 
current  period.  (The  strategies  for  the  following  period 
might,  however,  all  be  the  same,  regardless  of  the  randomi- 
zation outcome.)  This  is  preceded  by  the  notation  "Blue 
and  Red  Strategies  for  Period"  and  the  following  period. 

There  is  a lot  of  manipulation  of  variable  names,  and  the 
number  of  periods  in  the  war  affects  which  variable  names  are 
used  for  which  output.  Table  2 shows  which  variables  hold 
which  elements  of  a unit  of  output,  for  a given  stage  and 
number  of  periods. 

Following  is  a brief  guide  for  reading  the  output  for 
other  than  one-page  options: 

• The  last  page  of  output  contains  the  payoff  matrix  of  the 
overall  game  to  be  solved  (the  first-stage  game),  the 
optimal  first-period  strategies,  and  the  optimal  second- 
period  strategies  for  each  active  pair  of  Blue  and  Red 
first-period  pure  strategies. 

• To  find  the  second-period  payoff  matrices  for  a given  active 
pair  of  first-period  strategies,  look  for  the  output  unit 
where  IB  and  IR  (or  JB  and  JR  for  a two-period  war)  are 
equal  to  the  particular  pair.  The  second-period  strategies 
will  be  the  same  as  those  on  the  last  page  of  output.  For 

a three-period  war,  the  optimal  third-period  strategies  will 
also  be  given.  (In  option  3C , be  careful  not  to  confuse 
third-  and  second-period  printout  units.) 

• If  option  3C  is  being  used,  the  third-period  payoff  matrices 
for  a particular  second-period  active  pure-strategy  pair 
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Table  2.  VARIABLES  OUTPUT 


Number  of 
Peri od  s 

Stage/ 
Current 
Peri od 

Variable  for-- 

Payoff 

Matrix 

Pure  Strategy 
Pair  (Preceding 
Peri od  ) 

Value  of 
Game 

Optimal  Blue  and 
Red  Strategies 
(Current  Period) 

Optimal  Blue  and 
Red  Strategies 
(Following  Period ) 

1 

1 

U ( KB , KR ) 

[1  J] 

[V(l  ,D] 

SUB ( 1 ,1  , KB ) KB  = 1 , NB 

n/a 

SUR ( 1 ,1 , KR ) KR  = 1 , NR 

2 

1 

V ( J B , J R ) 

Cl.l] 

[w(l  ,1 )] 

S VB ( 1 ,1  , J B ) J B = 1 , NB 

SUB ( JB  , JR , • ) 

SVR(IJ.JR)  JR  = 1,NR 

SUR(JB,JR,- ) 

2 

2 

U ( KB , KR ) 

JB,JR 

V( JB , JR) 

SUB ( JB  , J R , KB ) KB  = 1 , NB 

n/a 

SUR ( J B , J R , KR ) KR  = 1 , NR 

3 

1 

W ( I B , I R ) 

n/a 

VALUE 

SWB(IB)  IB  = 1 ,NB 

S VB ( I B , I R , • ) 

SWR(IR)  I R= 1 , NR 

S VR ( I B , I R , • ) 

3 

2 

V ( J B , J R ) 

I B , I R 

W ( I B , I R ) 

SVB ( IB , I R , JB ) J B = 1 , NB 

SUB(JB,JR,-) 

SVR(IB,IR,JR)  J R = 1 , NR 

SUR ( J B , J R , • ) 

3 

3 

U ( KB , KR ) 

JB  , JR 

V ( J B , J R ) 

SUB ( J B , J R , KB ) KB=1,NB 

n/a 

S UR  ( J B , J R , KR  ) KR  = 1 , NR 

(JBjJR)  are  found  by  leafing  back  from  the  second-period 
payoff  matrix. 

This  guide  will  be  made  clear  by  the  examples. 

Changing  the  number  of  periods  is  a real  data  change; 
hence,  different  optimal  strategies  and  game  values  are  to  be 
expected  for  the  examples  for  options  2A  and  2B  and  the 
examples  for  options  3A,  3B,  and  3C — and,  indeed,  do  occur. 
However,  given  the  number  of  periods  and  decision  days,  the 
output  option  naturally  does  not  affect  the  game  values  or 
strategies  at  all.  The  examples  for  options  2A  and  2B,  for 
instance,  have  exactly  the  same  game  solution. 
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SAMPLE  OUTPUT  OF  INPUT  VARIABLES  (using  output 
option  2B) 


♦ 


NKHD,NKRrjtNKB*,NK«» 

3 3 * i 

Tftn ) 


30 


NPD« !DL2.IDl3 

2 

T 

TT 

TW*  JRO • KHo 

-0 

6 

l 

IPRv.IPRU 

1 

1 

THEpL^tlRCPLR 

Jl 

J(L, 

S' 
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9 


# 


bUAlNttD* IU) 

24.0 

-0.0 

-0.0 

-0.0 

-u.o 

-0,0 

-0.0 

-o.u 

-O.U 

-o.u 

-JtV 

-u.o 

-U.O 

-U.o 

-o.o 

■0.0 

b.O 

-0.0 

-o.u 

-0.0 

-U.0 

b.O 

-0.0 

-U.o 

^7o 

-0.0 

-U.u 

-0.0 

-U.o 

-o.o 

i2.0 

-0.0 

-O.u 

-0.0 

-0,0 

-O.u 

-o.u 

-U.o 

-0.0 

-0.0 

-o.u 

-0,0 

-u.o 

-O.u 

-O.u 

-U.o 

-0.0 

-0,0 

-o.u 

3.0 

-o.o 

-O.u 

-O.U 

-u.o 

-o.o 

-0.0 

-o.o 

-0,0 

-U.o 

-o.u 

10.0 

-0,0 

-0.0 

-u.o 

-o.o 

-0.0 

-OtU 

-U.o 

-0.0 

-0.0 

-o.u 

-0,0 

-o.o 

-o.u 

-O.u 

-u.o 

-o.o 

-0.0 

-o.u 

3.0 

-_y.o 

-u.u 

-0,U 

-O.o 

“^70" 

-0.0 

-O.u 

-O.o 

-0.0 

-O.u 

HU A l*HD » IU) 

C3  0.0 

-0.  U 

-o.u 

-0.0 

-U.o 

-O.U 

-u.u 

-U.o 

=^.0 

-O.o 

-0 . u 

-u.u 

-OTO 

-&.U 

-O.u 

-U.O 

-o.o 

-0,0 

-u.u 

20,0 

-o.o 

-O.U 

-O.u 

-o.o 

-O.o 

-0.0 

-u.u 

-u.o 

-0.0 

-o.o 

'♦O.O 

-0.0 

-U.U 

-0.0 

-U.o 

-O.u 

-o.u 

-u.o 

-o.o 

-0.0 

-o.u 

-u.u 

-0.0 

-o.u 

-o.u 

-u.o 

-o.o 

-0,0 

-O.U 

lu.o 

-0.0 

-o.o 

-o.u 

-U.o 

-0.0 

-0,0 

-U.u 

-0,0 

-U.o 

-O.u 

10.0 

-0.0 

-u.u 

-0,0 

-_U.  0 

-0,0 

-o.u 

-u.o 

-o.o 

-0.0 

-0,0 

-U.U 

-o.u 

-o.u 

-o.u 

-u.o 

-o.o 

-0,0 

-U.u 

-o.o 

-O.u 

-O.U 

-u.o 

-0,0 

-0,0 

-o.u 

-0,0 

-u.o 

-o.u 

^aaTK^aTTD  ) 

ibQO 

-0 

-0 

-0 

7b 

— u 

-u 

-o 

-0 

-u 

.0 

-0 

-0 

-0 

-u 

-0 

-0 

7b 

-u 

-0 

-0 

-u 

-0 

-0 

-0 

-0 

-If 

7b 

-0 

-u 

300 

-0 

-u 

-0 

-0 

• 0 

• 0 

-o 

-0 

-0 

-u 

-0 

-0 

-0 

• u 

-0 

.0 

-0 

-0 

-0 

-0 

-0 

-u 

-0 

-0 

-0 

- 0 

-o 

-0 

-0 

200 

-0 

-u 

-0 

-0 

-u 

-0 

-0 

-0 

-0 

-u 

-0 

-0 

-u 

-u 

-Q 

• 0 

-0 

-0 

to 

-0 

• 0 

-u 

■0 

-0 

-0 

-u 

-u 

-0 

-0 

2qo 

-0 

- 0 

-0 

-0 

-u 

-u 

■0 

-0 

-0 

-0 

-u 

-0 

-u 

-0 

-0 

-0 

-0 

-u 

-0 

-0 

-0 

• u 

-0 

-0 

-0 

-0 

-0 

-0 

-0 

TTaa  IKHAiTu ) 

2300 

-0 

- 0 

-0 

-0 

-u 

-u 

-0 

-0 

-0 

-u 

-u 

-0 

-o' 

«u 

-o 

-0 

-0 

-u 

-0 

-0 

-u 

-0 

-o 

-0 

-0 

-u 

-0 

-0 

-0 

Joo 

-0 

-0 

-0 

-0 

-u 

-u 

-o 

-u 

-0 

-u 

-0 

-0 

-0 

-u 

-0 

-0 

-0 

- J 

— 0 

-0 

-0 

-u 

-0 

-0 

-0 

-0 

-0 

-0 

-u 

400 

-0 

-0 

-0 

-0 

-0 

-u 

-0 

-0 

-0 

-0 

-0 

-0 

-u 

-0 

-0 

-0 

-0 

- u 

-0 

-0 

-0 

• U 

-0 

-0 

-0 

— 0 

-0 

-0 

-0 

500 

-0 

— 0 

-0 

-0 

— u 

.0  _ 

-0 

-0 

-u 

-u 

-0 

-0 

- 0 

• u 

-0 

-0 

-0 

-0 

-0 

-0 

-0 

-u 

-0 

-0 

-0 

-u 

-0 

-0 

-0 
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OdUHAiOflUrtA 

<^o.o 


PbShtL 

~ * <Jou 

P«SHtL 

4U00 


« 


*00.0 
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FdDtMiDJ 


10.0 

8.0 

6.0 

FHU^HD) 

0 

0 

1 

5,0 

A.U 

(FUAirsBA)  *i^) 

•iuOOO 

.15000 

(FHAdsHA)  »KRA*i  .2) 

.oouoo 

•08000 

IUdSKJ-iIURbRC 

5 

A 

< tSOHHttl  ( T Y t Mb ) t MS* 1 f 3 ) *1 T«l*4) 

2.0000 

S5000 

2.500V 

2. 0000 

3,0000 

1.500v 

( (SOKHdg (TY*Mb) ♦ MS«1 .3) »T  Y«1 *2) 

1.0000 

1.5000 

1.0000 

• 7000 

1.0000 

. 600  v 

( ISUKHrti (TY.wb) 1 MS* 1*3) *T t»l tt) 

i.0000 

2.5000 

t .Sou v 

J*0000 

2-0000 

2.000V 

( (S0KHH2 (TY ■ 

iHb) » hS* 1*3) .1 T *1 »f) 

I • 7 0 0 0 

1,50^0 

1 .5000 

1.7000 

1,0000 

. b 0 0 0 

1AA 

1 

XKBAA.XN^AA 

1.0 

1.0 

( (BALHHA (TY.Mbi *MS*1*2> . 1 Y « 1 * C ) 

•O0000 

•60000 

•oOOOO 

•60000 

( (RaLFHA (TY  »Mb) fMS*l .2) »TY«1 .2) 

• bOO  0 0 

•HOOOO 

•bOOOO 

.40000 

( (HIURA (TYI 

*KAl ) »KAl*it4) »lYl*i»2> 

•oOlGU 

•U010U 

• uo 1 v 0 

.00100 

;00150 

.00150 

•Ou2uv 

.00200 

( (BI&HA ( TYi 

» K A 1 ) ,KAT«1 

* 4 ) * T Y 1* l » 2 ) 

.bOOOO 

"30000 

.30000 

•300UU 

.50000 

•50C00 

• 30  0 0 u 

f 50000 

( (BAUhl  ( KA T . T Y 1 ) »TYl»i»2)  » fi  A l * 1 * *» ) 

• i/0100  .06100 

.UQ100  *00100 


•vOlQO  .QOlOu 


. 0 0 1 0 0 

•00100 

( ( BAM^  1 (KAT 

,T Y I ) tTYlBlfZ) »KAT*i.A) 

• 10000 

• 10000 

•10000 

. 1000U 

• 1 0 0 0 0 

• 10000 

• loo  0 0 

.10000 

X ( H I UdA ( T Y l 

**A]  ) » KAl » 1 » 4 J »TYl*i*<) 

• oooSO 

•OOObu  .000b*.  . OOObu 

•yOlOO 

_•  0 0 1 0 0 * 0 0 1 0 0 , 0 U 1 0 U 

( lHlNbM(TYl 

*KM|  ) i KAl ■ 1 • 4 ) #lYl*lt2> 

• f 0000 

• 20000  *2000u  . 2000U 

• JOOOO 

• 3U00O  • 3 0 0 0 u ,3o00u 

( (HAOoi (KAT 

♦ Ttl)  |TY1»1,2) *NAl*1.4) 

.yOoSo 

• coobu 

• yooSu 

•UU050 

*yuo5o 

• 0 0 0 b 0 

•yooso 

•OOObu 

( (HArvbl  (KAl 

*TXU  »TY  l«i t2)  * KA 1 *1  *«* ) 

•iUOOO 

•loooo 

. iOOOU 

. luOOO 

“ Ti'Oboo 

• 1 0 0 0 0 

tlOOOO 

•loooo 

( (HSMM2R (TY 

* Mb) * hS* i » 2 ) |1 Y«1 t2j 

• 0500 

• 1000 

-0500 

• 1000 

( (KSMnlH (TY 

• MbJ  *hb»l *2) v l |«l »2) 

•0500 

• 1 0 0 0 

iUSOO 

• 1000 

1H3SM 

1 

Bh  RaL± *BFkAC2 

• BOO 

.VOO 

RFRaUa *RFRaC2 

WOO 

.wo 

THSKTTR^K- 

a7ooo 

• bOO 

( tip AbB { T Y ) tTY“l»2) 

1*00  1.00 

TRpAbBTTY) .Ty«A77T 


A #00 

1.00 

ltiAti«--8LUE 

aTIaCKB  WtU 

AiKfcJMBL 

USlNb 

nude 

1 

1HABM— WED 

AtUCJvS  bi.u£ 

A IKHmBL 

WSlNb 

NUDE 

1 

XNdAb i ANHAti 

20.0 

20.0 

BPAHK.KPARK 

loooo. 0 1 o 0 o 0 « 0 

ti  GP 

H bK  AHA 

BURS 

•oioou 

•OlOOO 

tiDRNb 

*02000 

• 02000 

tiKHS 

. AOOOO" 

.40000 

BKRNb 

.60000 

• 6u00U 

R UK 

K BP  AHA 

RDtiS 

HUtiNti 


•OlOOO  *01000 

.02000  .02000 
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KKdS  .2G0OU  .2ul00 

NKbN5  .3QQUU  .3ul)uu 


b4tl*DHML  » b4AM  »b^AN2  »04ASi  b4Nbl  *tJ4NS2»b<*bNl  ,84SN2 

10UOUOU«(i  0.UU00  lUUOO.O  20000*0  15000.0 

15000*0 

0*  nQOO 

0.0000 

1.0000 

1.0000 

R4dtt<HAL»K4ANi  iK‘*AN2fn^Abi  »H4Nbl  *K4NS^*H4SN1  *R4SN2 

1000000*0  o.ouuo  louoo.n  2uooo.u  15000.0 

15000.0 

O.QQOO 

0.0000 

1.0000 

1.0000 

EPS4 

•oyOlO 

NF  RFmi  FRF  A VH  » F A (T7 
11  _ 


• 10 
->•00 

.20 

5*00 

.33 
1 0 *00 

.50 

.67 

1.00 

1.50 

2.00 

-D<r.  0 
20.0 

-40.0 

40.0 

-2u  • 0 

OO  • u 

-10.0 

-2.0 

0.0 

2.0 

10.0 

NFHDUtFftdU  (P  #BU(I) 

11 
• 10 

.20 

.33 

• 5U 

.67 

1.00 

1.50 

2.00 

J.oo 
• 020 

5.00 

.014 

10.00 
• 010 

.009 

• 006 

.008 

• 006 

• 007 

• 005 

.003 

• 002 

Nr HnU  f FHHU ( I J *RU ( 1 ) 
11 

• 10 
3*00 

• 20 
5*00 

.33 

lo.oo 

• 50 

.67 

1.00 

1.50 

2.00 

.002 
• 010 

.003 

iOJL* 

.005 
• 02o 

.007 

• 008 

• 006 

• 006 

• 009 

<• 


m 


# 


<• 
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NB.rtK 


6 6 


PtttloA,  Mb), 

MS*1 »3 ) 

A.OoQ 

o.ooO 

0 • GO  o 

l500 

.SOO 

U.OOO 

u.ooo 

1.000 

u.ooo 

• 500 

0.000 

• boo 

oTOoO 

.bOO 

• bOU 

0*000 

u.uoo 

1 .uou 

PR(lHAt  MS)  * 

MS»1»3) 

1.000 

U.OOU 

0.000 

• bOO 

• bOO 

O.OOM 

M • 0 o 0 

“1.000 

0 . u o u 

• bOO 

0,000 

• bOi 

U*U  oo 

.boo 

•bOu 

O.U00 

O.O00 

1*001 
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MOE*iiOET 

1 30 


bCiNGi 


u.Ooti 

l.QQO 

1 . 0 o u 

1.000 

(BUWbi ( I) , 

W 

i.uoo 

o*uou 

KCWG] 

o.OOG 

(HSWG 1 (MS)  » MSa i i 3 ) 

0. 000 

O.OOU 

o.ooo 

(KQmGjMl ) , 

r*  i * 2 ) 

u -000 

u . UOU 

GVA 

iuOQO 
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c. 

1. 


SAMPLE  OUTPUT  OF  GAME  SOLUTIONS 
Option  2A 


^AYOtt  MATHIX  tOH 
0 

game  at  "STaoE  i 

0 U 

0 

0 

1 

0 

u.ooy 

0.000 

o.uoo 

0.000 

o.ooo 

-2S9.B16 

0 

0.000 

U.OGQ 

o.ouo 

O.ood 

0,000 

-137.352 

0 

576  otr 

6.000 

6 . o u o 

o.oOo 

T.OUO 

-6o.26b 

0 

0.000 

u.ouo 

o.ouo 

0,000 

o.ooo 

-160, V40 

u 

U • 0 0 b 

0,000 

6;ooo 

o.oo6 

0,000 

-s>3.733 

1 

212.61b 

24,466 

134,062 

46.768 

9.617 

GAME 

VALUE 

A. 6171 

bLUE 

mND  HEU  blRATEGitb  FUN 

HEKIUD 

1 

0 • 00  o 

0 . o GO 

o • 000 

o.ooo 

o.ooo 

1,000 

0.000 

0,000 

6,000 

0,000 

0.000 

1 .000 

bLUE 

MND  RED  SlRATEGIfcS  KUh 

HtrtlOO 

t 

6 

6 

0.000 

1.000 

O.ooo 

o.ooo 

o.ooo 

0,000 

1.000 

0.000 

6.000 

0,000 

0.000 

0,000 

« 


m 


10? 


Option  2B 


payoff 

matrix_for 

GAME  AT 

STAGE  2 

1 

T 0 

-259.016  -53.888 

102.782 

0 

-98.673 

n 

105.023 

0 

133.783 

TT 

070110 

otroir 

rr.'ooo" 

n.ooo 

0 

-269,600 

0,000 

n.ooo 

0*000 

n.ooo 

0,000 

“0 

-?Fn  ,791 

0,000 

71.0716 

TJ^noir 

“0700  0 

0,000 

0 

-267.301 

0.000 

0,000 

0*000 

0.000 

0,000 

0 

-263 ,038 

Ua 

“07000 

0.000 

0*000 

0,600 

0.000 

=*Ri 1 — T 


V(JR, JR)  -259,8161 


anD  wErrSTRA7EGlEs  For  rFRT°T)  ? 

1.000  0.000  0.000  0.000 

O.QOO 

0,000 

T .ooo-  n , Ooo  o.ooo  0*000 

0,000 

0,060 

payoff  matrix  for  game  at  STAGE  2 

■ — “1 XT~  — TT  ”0 D 0 

1 -137.352  -6.815  106.530  -37.054  109.448  136.242 

TT  TTV3737T  0,000  0.000  7T00TT  0.000 0.000 

0 -149,252  0,000  0,000  0*000  0,000  o]ooo 

n — iUo.i  19  o.ooo  n.ooo  o ooo  if;ooo  0,000 

0 .147.474  0,000  0.000  0*000  0.000  0*000 

~0 -T447589  o; CTOO 0,000  0.000  — fT,0710  6.7)00 

2 JR* 6 _ 

V i JR ; JR)  -137,3520 

BLUP"AND  PED  STRATtGIts  F°*  pERI°ft  2 

l.ooo  o.ooo  o.ooo  o.ooo  n.ooo  o.ooo 
~ i .ooo  o.'ooir  T575W  o * oo  o'  n.ooo  o.ooo 


PAYOFF  MATRIX  FOR  Game  AT  STAGE  2 

1 cr o — — ir  u o 

1 -60.268  24.495  110.616  4,002  117.742  139.345 

"0 ^,T75 0,000“  0.000  0#000  0,000  0,000“ 

0 -73,400  0,000  0.000  0*000  0,000  0.000 

“0 .63,073 0,000  0.000  “ 0*00TT  6,n60  0.000 

0 .71.445  0,000  0,000  0*000  0.000  ojoOO 

n -60.203  (j.Mo  o.ooo  07060  0.000  0.000 

Jr  ■ r"3  JR  m “6 


HMJr.JR)  -60.2677 

hl^f  a^d  red  straTegies  fO*  pEfti°nf  t 

1.000  0.000  0.000  0.000  0.000  0.000 

T.WO"  0.000“  o.ornr  071100  0.000  0,000 
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PAYOFF 

matrix  fop 

game  at 

STAGE  2 

T 

O' 

0 

0 

0 

0 

n 

-16?  .009 

0.000 

0.000 

0.000 

0.000 

0.000 

07660 

-167,67* 

0,000 

~o,600 

0 066 

i^otro 

0 

-177. *54 

0.000 

0.000 

0*000 

0.000 

0,000 

1 

-1  fen. 940 

~ J,  271 

170,847 

-14.96T 

'Tin  7022 

203.629 

0 

-178.444 

0,000 

0.000 

0,000 

0.000 

0.000 

“0 

-lfeR.495 

07000 

0,000 

0,660 

0.000 

0.000 

iR  « 4 JR«  5 
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5 . Option  3 C 


The  full  output  using  option  3C  consists  of  about  20  four- 
or  five-page  sections,  one  for  each  first-period  payoff  entry 
computed.  The  sections  appear  in  the  order  that  the  first- 
period  payoff  entries  are  computed,  which  depends  on  the  input 
data.  Shown  below  are  the  sections  for  the  first  and  last  pay- 
off entries  computed,  which  are  elements  (1,1)  and  (5,3)  of  the 
first-period  payoff  matrix.  (To  avoid  undue  length  of  this 
volume,  the  rest  of  the  pages  of  output  3C  have  been  omitted.) 
Each  section  has  a second-period  payoff  matrix  and  game  solution 
at  the  end,  preceded  by  a series  of  third-period  payoff  matrices 
and  game  solutions. 
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n . Q 0 Q 

0.000 

n.QQO 

0-000 

n 

-3. pi  9 

0.0  Pi) 

0 

0.000 

0*000 

0.000 

n 

-2  ,?i  5 

0,0  00 

o^mq 

0*000 

0.0  00 

jh« 

6 iH= 

2 

V < Jq, 

JR) 

17.0661 

mluf 

AND  WE0  STWATERIF.<5  FOR 

REHTOn 

7 

1 .0-0 

rt.'>C0 

n • non 

0.000 

0*000 

0,000 

1 . 0<*0 

0,1)  no 

o.  non 

0.000 

0.000 

0.000 



payoff  MATMIv  fop 

GA*'E  AT  STARt  3 

1 

o 

n 

0 

n 

0 

1 

46.9*6 

59 , 7«a 

7?. 193 

58.274 

77.777 

77.330 

0 

3«, P94 

0,000 

0.000 

o.ooo 

0.000 

0.000 

n 

35»  1 71  5 

0,00  0 

nVooo' 

o.ooo 

C.noo 

0.000 

0 

4n ,6n8 

o.o  no 

o.nOP 

0.000 

0*000 

0.000 

0 

33,0*1 

0,000 

0 . 0 0 0 

0.000 

0 .000 

0.000 

o 

33.6i9 

0.000 

o.ooo 

0,000 

p.noo 

0,000 

JH* 

6 !«■ 

3 

V ( JR, 

JP) 

46,956? 

HL^F 

AND  RED  STtfATEfiTF^  FOR 

HFPTon 

1.0-0 

n,ooo 

0.  ono 

0.000 

o.ooo 

n .000 

1.0*0 

0.000 

0.0  00 

0.000 

0*000 

0.000 

payoff  matrix  FOR  GA‘^E  at 
1 0 

STARE  3 
0 

0 

0 

0 

1 

-13.7r8 

14.60} 

49*800 

9,340 

40.^32 

4 A . 275 

0 

-16.9*B 

0,000 

0,000 

0.000 

0.000 

0.000 

0 

-2o,0p2 

0.000 ' 

".000 

o.ooo 

P.000 

0.000 

0 

-15,6*9 

0,000 

0.000 

0.000 

O.OOO 

0-000 

n 

-19.451 

O.fno 

o.ooo 

0.000 

0.000 

0.000 

n 

-IA.S-jO 

o.ooo 

o.coo 

0_J)0  0 

0.000 

0.000 

Jhb 

6 |R* 

4 

V < JR  • Jp  ) -.13,7077 


K|_UE  and  REn  STRaTEGTFS  FO*  DFKT0n  3 


1,0-0 

n.'H-u 

0.000 

o.ooo 

n.npp 

0.000 

1,000 

0.000 

0 . o 0 0 

0,00  0 

o.OPO 

0^000 

PAYOFF 

MATWIY  FOP 

P4>’E  AT 

STARE  3 

1 

0 

n 

0 

n 

0 

1 

33.773 

St,  996 

HR. 604 

47.413 

R3.497 

A3. 461 

0 

3) .233 

o.ooo 

P.noo 

0.000 

0.000 

0.000 

0 

29.2*8 

n.ono 

n .000 

0,000 

0.000 

0.000 

0 

31 .977 

nti*00 

0.000 

o'oon 

o.ooo 

0,000 

0 

29.6*9 

0.000 

n.pOC 

0.000 

0.000 

0.000 

0 

3o , 1 f2 

o.ooo 

n.nnn 

o!ooo 

0.000 

0 - 0 0 Q 
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V t JR« JR) 


3 1,27?<3 


hluf  and  oEn  strategies  Fry*  pFhjno  7 

1.0-0  0.000  ft  • ft  0 0 0,000  ft  . ft  ft  ft  0.000 

1 • 0 n 0 0.00 1 j ■>  ,roo  0.000  n.fton  0.0 00 


PAYOFF  MATRT*  FOR  GA"f 
1 


AT  5TAGt 

0 


1 

34.21 6 

43 , 345 

1)  A»?8A 

Al .597 

1 1 1 .904 

1 09.496 

0 

3n.R-J 

0 ,'-no 

0.000 

ojioo 

*>  • n on 

o.noo 

0 

19,377 

0.000 

0.000 

0,000 

0.006 

0.000 

0 

32.3*7 

n . 0 0 1) 

o.noo 

0.000 

0,300 

0.000 

0 

2'9.7-,9 

0.000 

o.ono 

0*000 

0.000 

0.000 

0 

2s  , 7c>8 

o.oon 

0,0  00 

0.000 

''.OOP 

0.000 

!k* 

6 JH« 

b 

V (JR, JR) 


34,2159 


BLuF  AND  Rgn  STRATEGIES  FOR  PpHyOo 
1.0*9  0.0  m ft.  000 

1.0-0  0,000  ft,  ft  Oft 


0.000 

0 000 


,onn 

.000 


0,000 

n noo 


PAYOFF  MATRIy  FOR  GAVE  at  STAGt  7 


1 

0 

0 

0 

n 

0 

1 

-26.743 

-19.90ft 

1 1 ,n7S 

-?o.7n 

1 i .947 

17.707 

0 

-27,574 

o.cno 

o,Qftft 

O.OOft 

0,000 

0.000 

0 

-2R.444 

ft.  jOQ 

ft, 660 

6*000 

ft.  000 

n.noo 

0 

-27,2t3 

0,000 

0,000 

O.Oflft. 

o,OrtQ 

P.QQQ 

ft 

-2o.?r>4 

O.i'OO 

ft. "Oft 

0,000 

ft  .Oftft 

0.300 

0 

.27,945 

O.Oftft 

O.nOO 

0^000 

ft  ,000 

ft  ,0  Op 

Jh* 

1 (R« 

4 

V ( JR , JR ) 

-26,7429. 

HLUF 

AND  RfO  STRATEGIES  pom 

RF^lOn 

3 

l.ft^O 

0.000 

ft.  QQO 

0.030 

n.oon 

ft.ftOO 

I .000 

ft. 000 

0,000 

P.OOft 

o.OOQ 

0.0  CO 

payoff  matrty  for 

(3  A * 1 6 AT  STAGt  3 

\ 

0 

ft 

0 

n 

1 

- 2 4 • ? r 5 

-19.770 

12.555 

-2ft. 573 

17.276 

14,417 

0 

-24,976 

O.Oft!) 

n.coo 

O.Oftft 

0.000 

ft. Oftft 

0 

-27.7^6 

0.  Oftu 

0.0c  0 

ft  . 0 0 ft 

r*.  Oftft 

0.000 

n 

-26.777 

0,0  00 

0 , r 0 ft 

o'noo 

ft, non 

0.000 

0 

-27.575 

3.0*0 

O.I.ftft 

0*600 

ft . ftnft 

o*noo 

ft 

-27.362 

o.cno 

0 , r oc 

0.000 

0.0-0 

ft. 000 

»*«■ 

2 iR* 

4 

V (JR 

.JR) 

-2*. *n5l 

«LUF 

and  red  strategtf.s  for 

ppRfOn 

7 

1-0-0 

ft  . r ft  0 

n . n ft  0 

ft  . 0 0 ft 

ft  . O Oft 

0.000 

l.ftftO 

O.000 

O.Oftft 

O.Oftft 

ft  . n •)  n 

O.Oftft 
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PAYOFF  MATRTv  FOR 

Ga»*E  AT 

STAOt  3 

-r 

— 

1 

ft 

ft 

n 

0 

1 -26.9-1 

-?m.7R7 

1 ?.3*1 

-21.539 

1?.9R3 

13.94R 

ft  .27.6^4 

ft  .ft  00 

ft  ,000 

0,00ft 

ft.  ft  Oft 

0.000 

n -2«.4<;7 

ft  . f ft  0 

ft.OOO 

0.000 

ft. ftftO 

o.noo 

0 - 2 7 , 4 r 1 

n .00  0 

. ft  p ft 

0,00ft 

ft^oon 

0,000 

ft  -2R,3:i 

ft . ftftO 

O.ftOft 

0,00ft 

ft. ftftO 

0.000 

ft  -2F.il? 

0.000 

ft.noo 

O^OOft 

_n  ,npo 

0.000 

J^  ■ 3 1^8 

4 

V ( JR, JR) 

-26.9C0R 

HI  Up  AND  wEH  STWaTErie.^  fO« 

pFHTnn 

7 

1.0*0 

0 , r 00 

o.ooti 

TTTJfffl 

ft. 0071 

7*  .TOT 

1 ,n^0 

ft.OOO 

ft.OOO 

o,ooo 

ft.ftftft 

o^ooo 

PAYOFF  MATRT*  FOR 

IsA*'F  at 

ST40F.  3 

— 

_ 

1 

0 

0 

ft 

ft 

0 

1 -2 1.622 

-14.744 

F4.641 

-15,719 

26,673 

26.927 

n -2?.ft>7 

ft, ftftO 

O.ftOO 

0,000 

ft.OOO 

0.000 

ft  -24,?*6 

O.OftO 

ft.OOO 

0,00ft 

ft. ftftO 

0.000 

ft  -2? , 4 •>  b 

ft.OOO 

o.ftOo 

0.000 

0.000 

0.000 

ft  -23,976 

o.noo 

0.000 

0,00ft 

O.OftO 

0.000 

ft  -23.4o5 

0.0  00 

ft.OOO 

O.OOQ 

0.000 

0.000 

Jh«  4 JH« 

4 

V (JR, JR) 

-21 t 625* 

HLUF  4^0  rEO  STWATEfiTES  F 

OF 

pfriOo 

7 

l.OnO 

ft.OOO 

0.OU0 

~D,Wff 

O.ftlvft 

0,000 

1,000 

ft.OOO 

ft.OOO 

o ooo 

ft.OOO 

0.000 

PAYOFF  MATRIy  for 

ga^e  at  stage  7 

l 

o 

0 

0 

n 

0 

1 -22.0/4o 

-1 3.459 

T47391 

-16.326 

24.405 

24.617 

n -24,2^6 

n.ooo 

0.000 

0.000 

ft. ftftO 

0.000 

ft  -2*,5o5 

0,000 

ft.noo 

0,000 

O.OftO 

0,000 

0 -23.R22 

ft.OOO 

0.00ft  _ 

o^fton 

n^noo 

0t000 

0 -2b.3;9 

0.000 

O.ftOO 

0.060 

ft.OOO 

0.300 

0 -24,941 

O.OftO 

ft,00  0 

0 OOn 

n.ooo 

Q..DQQ 

J^8  5 )R  = 

4 

V ( JR, JR) 

-22,94-14 

H|,Up  AND  rED  5TRaT£GTE5  fof 

PrHT  ),-) 

7 

1.0-0 

ft.OOO 

o.oofT 

0.000 

ft.OOO 

0.000 

1 • Qr  3 

0,000 

O.OftO 

0,000 

n.ooo 

0.000 

127 


LAYOFF  MATHT  V FOR  GA  'It  AT  STARt  ? 


1 

0 

0 

1 

A 

0 

n 

-34 ,qq6 

0 • ooo 

o-roo 

-?6. 743 

o.  *no 

0.000 

n 

-45. ?S^ 

0 • y q 0 

0-000 

-?6.2qS 

0*000 

o.ooo 

n 

-69. QSb 

0.0  00 

o.ooo 

A.  A^o 

o.noo 

n 

-35. ^2 

0.000 

0*000 

-?l  .625 

0*  00° 

0*000 

n 

-47. ] o 9 

o.ooo 

o ♦ n o o 

-??, 94C 

0*  Arto 

0.A00 

1 

-10. 7 a* 

17*066 

46.056 

-U.70« 

33.971 

34.?16 

IH« 

1 tRs 

1 

<1  IR, 

,IP) 

-13.7177 

*LUF 

and  Run  strategies  for 

opwton 

o 

0,0^0 

n.ODO 

o.ooo 

0 ^Oqo 

0 . A A A 

1 .000 

n.OCO 

0.000 

0.000 

1 ]oon 

n.ono 

0.000 

^•UE 

A^n  RED  STRATEGIES  FOR 

RFRIOn 

3 

6 

4 

1 . 000 

0.000 

o.ooo 

0.000 

A . A A 0 

0,000 

1.0*0 

O.Ono 

'/♦OOO 

..  .0*000 

-OtUQO 

0*000 
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[DELETED  OUTPUT  SECTIONS  OCCUR  HERE.] 


PAYOFF  MATRTv  for 

«A**E  AT 

STAGE  1 

L 

c 

0 

:) 

0 

0 

l 1H.SR8 

29.9Rn 

4R.R0? 

pH.364 

4 A.GRA 

4P.94S 

o n.w 

0.000 

0 • o 0 0 

0,000 

ft  .ftftO 

n.ooft 

0 16,1  f>6 

0.  O00 

o.  non 

ft,  ooo 

n.  ftftft 

ft, ooo 

n 1 7 , 4 4 S 

o.ooo 

n • o.O  ft 

0,,  o 0 o 

ft.  Oft  0 

o.ooo 

0 l**?n2 

0.  OOfl 

o • ^->6 

O.ono 

o-ofto 

0.000 

n 1a. 4^5 

0,000 

ft  • o y_  0 

0,000. 

0*000 

0.000 

JB«  1 )R* 

1 

v (Jp, JR) 

1H.S8HR 

BLUE  and  RED  STRATEGIES  POM  pfwtoh 

R 

1.  o*o 

O^Oop 

o.oon 

0^000 

n#ono 

0^000 

i ,n*o 

0,000 

0,000 

o[onn 

0 .ftftft 

0,000 

payoff  matrt*  foh 

GA’*E  at  SfMit  R 

1 

ft 

ft 

0 

0 

I 

I9.0o6 

3ft, 26A 

«♦  t . n o a 

P8.7AA 

47 . P7S 

4^.A)A 

0 

1A,5p3 

0,000 

0,0  0ft 

0.000 

0.0-90 

0,000 

0 

1S.SR2 

0.000 

o*ooo 

0.000 

ft.  ooo 

o.ooo 

0 

1A.974 

0 #ooo 

ft  .nQft 

n.coo 

ft  .ftftO 

0.000 

0 

IS, 6ft  t 

o.ooo 

0*000 

0,000 

O.ftftO 

o.ooo 

0 

1S.7a6 

0.000 

O.ftOO 

o.ooo 

0 . ft  ft  0 

0.000 

JH* 

?.  tRs 

1 

V(JR, 

, JR) 

1 9, ftQA? 

BLUE 

AND  red  strategies  FOW 

PP^UR 

R 

1 .0-0 

0,0  00 

0.000 

o.ooo 

n , oft  ft 

O.ftOO 

1 ,000 

0,000 

O.ftOO 

0,000 

0,noft 

ft,  000 

PAYOFF  MATRIX  FOR 

GA*'E  At 

STAGE  R 

1 

0 

0 

ft 

ft 

ft 

1 19,4ft0 

3ft, 369 

4S.774 

pR  . 97f> 

4 A . ft  R i 

4 A . 160 

0 1 A * 1 ftO 

0,090 

'j  • a o o 

0.009 

ft  .ftftft 

0.090 

0 lA.RoS 

0.000 

9 • 0 JO 

0.000 

ft  .ftftft 

O.OOO 

0 1 6 « 7fB 

0.000 

0.001 

0.309 

C. 900 

ft. ODD 

ft’  14.qn9 

ft  . U 0 0 

ft.OOft 

) . 0 ft  ft 

ft  • ft  r)ft 

ft . 9ftO 

0 1S.1 ^ 7 

0.000 

o.ooo 

o.ooc 

o.noo 

n.ooc 

J^«  3 IR* 

1 

V ( JP, JR) 

19,4797 

hlUf  and  REO  strategies  for  PEKi‘Jn 

R 

1 .9"0 

n . o ft  o 

ft.  ooo 

0 . 0 9 0 

o. ftftft 

o.ooo 

L • 0 ft  0 

0.000 

U.UllO 

0.000 

o . nan 

o.ono 
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payoff  matrix  for 

6A‘jE  AT  STAGE  3 

1 

1) 

0 

n 

' > 

0 

1 

22.6-2 

36.419 

SP.  H'iS 

33.H07 

69.-47 

S3. 116 

n 

1«.4:>2 

O.PAft 

ft.ftftft 

0.000 

n .aoo 

A. 000 

0 

16, 6g9 

ft  . 0 ft  0 

n , o 0 0 

o.ono 

n.n  ja 

0 . A ft  0 

0 

19.2^ 

ft.ftftft 

a , e 0 a 

o*0()O 

n , n n j 

0.000 

0 

17.0" i 

O.OflO 

'.0  00 

O.Cftft 

r . -no 

n .ofto 

n 

17.179 

O.00  0 

•1.00  0 

V . 9 0 0 

C .000 

0.000 

JH* 

4 iHm 

1 

Y ( Jfl, 

JR) 

22.5-A24 

Hl-Up 

and  »En  st»atE(StEs  cop 

PF9Tl)n 

1.0-0 

n.ooo 

0.  )00 

o . o c a 

ft  • ftoft 

n.ftop 

1 .OaO 

o . C 0 0 

?*0i)0 

9.000 

0*000 

0.000 

PAYOFF  MATRIy  FOR 

OA-<E  AT  STAGE  3 

l 

0 

0 

0 

ft 

0 

1 

22.607 

35.013 

5ft.  660 

33,583 

6 a . 776 

61.041 

0 

IP. 354 

0.0  00 

a, non 

O.ftCO 

ft.ftftft 

n.ftoo 

ft 

1S.PP7 

0.000 

O.ftOO 

0.00  0 

ft  . ft  T A 

ft  .ftftO 

0 

19. 2^5 

0.000 

0.000 

0.000 

0.030 

a.ooo 

ft 

16.998 

0.000 

ft  . ft  0 ft 

o.ono 

n , n ft  ft 

n .ofto 

ft 

16.192 

0 . 0 0 0 

0.000 

0.000 

O.ftOO 

0.000 

5 l*« 

1 

Vt JR, JR) 

22.6877 

HlUF 

AND  °ED  STRATEGIES  fOR 

RrRTOn 

1 

1,0-0 

0.000 

ft  , Aftft 

ft.ftftft 

A.ftAft 

0,  A00 

1 .010 

ft. 000 

o.oao 

ftiooo 

0.000 

0.0  00 

payoff  matrix  for 

GA  JF  AT  STAGE  1 

1 

0 

0 

Q 

0 

0 

1 

29.6^0 

43.795 

5P.S1  ft 

42.226 

6P.67? 

SP . 668 

0 

22.629 

0.000 

O.QOQ 

0.000 

n.cQn 

n.noo 

0 

1 7 , q 7 

0.000 

o.  non 

ft.  ooo 

ft.  ftAO 

ft. 000 

0 

24 • ftp9 

ft  . 0 0 0 

n.noo 

0.00ft 

Q.ft-ftft 

0. ftftO 

ft 

1 R. ft?6 

n . a o o 

ft.OOO 

0.0  on 

n . -ftft 

n.ofto 

0 

1P.3oB 

0.000 

0.000 

0.000 

9.030 

0.000 

Jh« 

6 l«» 

1 

v ( jq. 

JH) 

2 9 . 8 ft  ft  - 

Hl.Ufr 

ano  Red  strateotf.s  for 

Pp^T  )o 

3 

l .0-0 

o . j o ') 

ft.ftOO 

o.ooo 

A . ft  ft  A 

A., TOO 

1 .0*0 

0.00  } 

0*300 

O.QQO 

0 • QAA 

0.000 

payoff 

MATRIX  for 

G A**E  AT 

STAGt  3 

1 

>) 

ft 

ft 

A 

0 

1 

46.440 

56.243 

n7. A 16 

66.17ft 

67 .798 

67.96R 

0 

39 ,4-4 

ft.  ooo 

0.  A Oft 

0,0  00 

n,  ftftft 

ft. non 
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n 

34,5n2 

0,'»0J 

0 • 0 **  0 

ft 

4n.4^2 

0 • 0 9 ) 

0*330 

n 

34.81  * 

n , 0 0 [) 

* . 9 V 0 

0 

3S.\4tt 

D.OOi) 

o.aoo 

JH3 

ft  iR* 

2 

v ( JR, 

. J«) 

4n.443e 

HtUF 

AND  «En  STWaTERTF.S  FDR 

^FwI«)0 

1 .0-0 

0.000 

0.000 

1 • 0 " 0 

).»0) 

o.'jOO 

payoff  matrix  for 

tt \ *•* E at  rtaoF  1 

1 

1 

n 

1 

7l  .?Ri 

7R.15H 

*7.125 

0 

66.335 

n . 0 0 0 

0,0  00 

n 

61  .5^6 

0,0  00 

0.009 

(1 

67 .on J 

o.oou 

O.O'IO 

0 

61 .776 

0,000 

0 .000 

0 

6? , 0^4 

0.000 

0.000 

JM* 

6 iR» 

3 

v ( Jr  , 

JR) 

71 .292* 

HL^F 

AND  RED  STRATEGIES  FOR 

pGKTOn 

1.0*0 

0,0  00 

9.000 

1 , 0 S 0 

o,  u 00 

o.ooo 

0.09  9 

n.000 

0.000 

0 .000 

o?o  ao 

n.nnn 

0.000 

9. 999 

0.000 

0.0  00 

9*190 

O.&&0 

0.000 

9,000 

0.000 

9 ,po  n. 

0,0.9  0 

9.000 

0 

0 

0 

7H.434 

R7.?RR 

87.487 

0.000 

0.090 

0.000 

0.000 

9.000 

0.000 

0.000 

o.fl90_ 

0^000 

9 . ft  0 0 

o.ooo 

o.ooo 

O.o  OS 

. Of QQO 

-O.OQQ 

1 

5 .0  o o 

0.000 

0.000 

o‘ooo 

0,000 

0.000 

PAYOFF 

1 

0 

MATRIX  FOR 
1 

2ft. lo5 
24,4ol 

Ga^E  AT 

■) 

42,363 

0,000  < 

ST Ant  3 
0 

67.644 
0, 9 00_ 

0 

39.TR? 

0T000 

0 

67.746 

Oj.090 

0 

6?, 886 
0,000 

0 

2?.fle4 

0.000  ' 

0.000 

0,000 

o.ooo 

0,000 

n 

24,9*3 

o.ooo 

0,990 

o.ooo 

n.000 

0.000 
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APPENDIX  A 


ALPHABETICAL  LISTING  AND  DEFINITIONS  OF  INPUT  VARIABLES 


Variable  Name 


Definition 


BAA(KBA,ID) 

Blue  aircraft  added,  by  kind  of  Blue  aircraft  and  day 
( inc lud ing  day  1 ) . 

BADRI (INDB,TYR) 

# 

Air-to-air  detection  parameter  for  Blue  attackers  detect- 
ing Red  interceptors. 

BAKRI ( INDB , TYR ) 

Air-to-air  kill  parameter  for  Blue  attackers: 

1 - GP-CAS;  2 - GP-ABA;  3 - SP-CAS;  4 - SP-ABA 
killing  Red  interceptors: 

1 - GP;  2 - SP. 

• 

BALPHA (TYB , MSB ) 

Fraction  of  Blue  attackers  that  do  not  jettison  their 
ordnance  and  fly  back  but  continue  on,  by  Blue  attacker 
type: 

1 - GP;  2 - SP 
and  attack  mission: 

• 

1 - CAS;  2 - ABA. 

BCWGT 

Weight  for  cumulative  Blue  CAS  firepower  delivered  (must 
be  zero  if  M0E=4 ) . 

BD(15) 

• 

Proportion  of  Blue  divisions  destroyed — vector  of  break- 
point ordinates  for  interpolation. 

BDA(KBD,ID) 

Blue  divisions  added,  by  kind  of  Blue  division  and  day 
(including  day  1). 

BDRNS(2) 

• 

Parameter  for  Blue  detecting  Red  nonsheltered  aircraft: 
1 - Blue  GP  aircraft;  2 - Blue  SP-ABA  aircraft. 

BDRS(TYB) 

Parameter  for  Blue  detecting  Red  shelters: 

1 - Blue  GP  aircraft;  2 - Blue  SP-ABA  aircraft. 

BFRAC1 

• 

Fraction  of  Blue  aircraft  on  base  before  change  in  sortie 
rate. 

BPRAC2 

Fraction  of  Blue  aircraft  on  base  after  change  in  sortie 
rate. 

BIDRA( TYB, INDR) 

• 

Air-to-air  detection  parameter  for  Blue  interceptors 
detecting  Red  attackers  (subscripted  as  for  BIKRA,  below) 

BIKRA (TYB, INDR) 

Air-to-air  kill  parameter  for  Blue  interceptors: 

1 - GP;  2 - SP 
killing  Red  attackers: 

1 - GP-CAS;  2 - GP-ABA;  3 - SP-CAS;  4 - SP-ABA. 

BKRNS(2) 

Parameter  for  Blue  killing  Red  nonsheltered  aircraft: 
1 - Blue  GP  aircraft;  2 - Blue  SP-ABA  aircraft. 

A-l 


Variable  Name 


Definition 


BKRS(2) 

Parameter  for  Blue  killing  Red  shelters: 

1 - Blue  GP  aircraft;  2 - Blue  SP-ABA  aircraft. 

BPARK 

Number  of  Blue  parking  areas  for  aircraft  on  each  Blue 
airbase . 

BPASS(TYB) 

Number  of  passes  per  Blue  ABA  sortie  by 
1 - GP-ABA  aircraft;  2 - SP-ABA  aircraft. 

BQWGT(2) 

If  M0E=4,  BQWGT(l)  is  weight  for  surviving  Blue  general- 
purpose  aircraft;  BQWGT(2)  is  not  used.  If  M0E=5, 
BQWGT(l)  is  weight  for  Blue  GP  surviving  aircraft  minus 
desired  Blue  QRA;  BQWGT(2)  is  weight  for  desired  minus 
actual  Blue  QRA. 

BSAMZR(TYR,MSR) 

Proportion  of  Red  attack  sorties  by  type: 
1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA 

destroyed  by  Blue  ground-to-air  weapons. 

BSWGT(MS) 

Weights  for  surviving  SP  aircraft  (KBA=2,3,4),  by  kind  of 
aircraft : 

1 - SP-CAS;  2 - SP-ABA;  3 - SP-INT. 

B4AL 

Overlap  factor  (between  0 and  1)  for  Red  munitions  at  the 
Blue  airbase. 

B4AN15B4AN2 

Lethal  area  covered  by  one  pass  of  a Red  GP-  or  SP-ABA 
aircraft  (resp.)  dropping  "anti-nonsheltered"  munitions 
against  nonsheltered  aircraft. 

B4AS1,B4AS2 

Lethal  area  covered  by  one  pass  of  a Red  GP-  or  SP-ABA 
aircraft  (resp.)  dropping  "anti-shelter"  munitions  against 
shelters . 

B4B 

Area  (in  square  meters)  of  a typical  airbase  on  which  Blue 
aircraft  might  be  located. 

B4NS1sB4NS2 

A reduction  factor  applied  to  B4AN1  or  B4AN2  (resp . ) when 
"anti-nonsheltered"  munitions  are  dropped  on  shelters. 

B4SN1,B4SN2 

An  expansion  (or  reduction)  factor  applied  to  B4AS1  or 
B4AS2  (resp.)  when  "anti-shelter"  munitions  are  dropped  on 
nonsheltered  aircraft. 

DBQRA 

Desired  Blue  Quick  Reaction  Alert  aircraft  level  (number 
of  aircraft). 

Variable  Name 


Definition 


DRQRA 

Desired  Red  Quick  Reaction  Alert  aircraft  level  (number  of 
aircraft ) . 

• 

FA(15) 

FEBA  advance — vector  of  breakpoint  ordinates  for  inter- 
polation. 

FBA(KBA) 

Firepower  per  successful  Blue  CAS  sortie: 

1 - by  a GP  plane  on  CAS;  2 - by  a SP-CAS  plane. 

FBD(KBD) 

Firepower  per  Blue  division. 

• 

FBSK 

Fraction  of  Blue  aircraft  shelters  hit  by  Red  that  are 
destroyed . 

FRA(KRA) 

Firepower  per  successful  Red  CAS  sortie: 

1 - by  a GP  plane  on  CAS;  2 - by  a SP-CAS  plane. 

• 

FRBD(15) 

Force  ratio  for  Blue  division  destruction — vector  of 
breakpoint  abscissas  for  interpolation. 

FRD(KRD) 

Firepower  per  Red  division. 

• 

FRFA ( 15 ) 

Force  ratios  for  FEBA  advance — vector  of  breakpoint 
abscissas  for  interpolation. 

FRRD(15) 

Force  ratios  for  Red  division  destruction. 

• 

ms K 

Fraction  of  Red  aircraft  shelters  hit  by  Blue  that  are 
destroyed . 

GVA 

Game  value  added  (i.e.,  value  added  to  each  payoff  entry 
to  make  it  positive  for  the  game-solving  procedure). 

c 

IAA 

Indicator  for  air-to-air  combat  mode: 

0 - basic  method; 

1 - method  where  some  attackers  drop  their  ordnance, 

then  shoot  back  at  enemy  interceptors. 

IBABA 

Indicator  for  Blue  ABA  attack  mode  of  Red  airbases 
(1,  2,  3,  or  4). 

• 

IDBSRC 

Day  for  Blue  sortie  rates  to  change. 

IDL2 

First  day  of  second  period;  if  two  periods,  first  day  of 
first  period  (i.e.,  day  1). 

• 

IDL3 

First  day  of  third  period;  if  two  periods,  first  day  of 
second  period. 

A-3 


Variable  Name 


Definition 


IDRSRC 

IPRU 

IPRV 

IRABA 

IREPLB 

IREPLR 

IRO 

IR3SH 

JRO 

KRO 

MOE 

MOET 

NB 

NERBD 

NERFA 

NERRD 

NID 


Day  for  Red  sortie  rates  to  change. 

Indicator  for  printing  third-period  game  results. 

Indicator  for  printing  second-period  game  results: 

0 - do  not  print;  1 - print. 

Indicator  for  Red  ABA  attack  mode  of  Blue  airbases 
(1,  2,  3,  or  4). 

Indicator  for  casualty  replacement  of  Blue  ground  forces: 

0 - no  Blue  ground  casualties  are  replaced; 

1 - all  Blue  ground  casualties  are  replaced. 

Indicator  for  casualty  replacement  of  Red  ground  forces. 

First  Red  allocation  to  use  in  solving  first-period  games 
(must  not  exceed  NR) . 

Indicator  for  Red  SP-ABA  aircraft  to  be  sheltered: 

0 -do  shelter  them;  1 - do  not  shelter  then. 

First  Red  allocation  to  use  in  solving  second-period 
games  (must  not  exceed  NR) . 

•First  Red  allocation  to  use  in  solving  third-period  games 
(must  not  exceed  NR) . 

Measure  of  effectiveness  to  be  optimized: 

1 - FEBA;  2 - firepower  difference; 

3 - air  firepower  difference; 

4 - surviving  aircraft,  weighted  by  type; 

5 - generalized  air  measure,  including  QRA. 

Day  on  which  MOE  is  to  be  found. 

Number  of  Blue  pure  strategies  (all  pure  strategies  are 
available  in  each  period). 

Number  (up  to  15)  of  force  ratios  for  Blue  division 
destruction. 

Number  (up  to  15)  of  force  ratios  for  FEBA  advance. 

Number  (up  to  15)  of  force  ratios  for  Red  division 
destruction. 

Number  (up  to  90)  of  days  in  war. 


Variable  Name 


Definition 


NKBA 

Number  of  kinds  of  Blue  aircraft. 

NKBD 

Number  (up  to  3)  of  kinds  of  Blue  divisions. 

NKRA 

Number  of  kinds  of  Red  aircraft. 

NKRD 

Number  (up  to  3)  of  kinds  of  Red  divisions. 

NPD 

Number  (up  to  3)  of  periods  in  war. 

NR 

Number  of  Red  pure  strategies  (all  pure  strategies  are 
available  in  each  period) . 

RAA(KRA,ID) 

Red  aircraft  added,  by  kind  of  Red  aircraft  and  day 
(including  day  1). 

RADBI(INDR,TYB) 

Air-to-air  detection  parameter — Red  attackers  detect  Blue 
interceptors . 

RAKBI(INDR,TYB) 

Air-to-air  kill  parameter;  Red  attackers — 
1 - CAS;  2 - ABA;  3 - CAS;  4 - ABA 
kill  Blue  interceptors: 

1 - GP;  2 - SP. 

RALPHA(TYR,MSR) 

Fraction  of  Red  attackers  that  do  not  jettison  their 
ordnance  but  continue  on,  by  Red  attacker  type  and 
mission. 

RCWGT 

Weight  for  cumulative  Red  CAS  firepower  delivered  (must 
be  zero  if  M0E=4). 

RD(15) 

Proportion  of  Red  divisions  destroyed. 

RDA(KRD,ID) 

Red  divisions  added  by  kind  of  Red  division  and  day 
(including  day  1). 

RDBNS ( 2 ) 

Parameter  for  Red  detecting  Blue  nonsheltered  aircraft: 
1 - Red  GP  aircraft;  2 - Red  SP-ABA  aircraft. 

RDBS(TYR) 

Parameter  for  Red  detecting  Blue  shelters: 

1 - Red  GP  aircraft;  2 - Red  SP-ABA  aircraft. 

RFRAC1 

Fraction  of  Red  aircraft  on  base  before  change  in  sortie 
rate. 

RFRAC2 

Fraction  of  Red  aircraft  on  base  after  change  in  sortie 
rate. 

Variable  Name 


Definition 


ridba(tyr,indb) 

Air-to-air  detection  parameter;  Red  interceptors  detect 
Blue  attackers. 

RIKBA(TYRjINDB) 

Air-to-air  kill  parameter;  Red  interceptors — 

1 - GP;  2 - SP 
kill  Blue  attackers: 

1 - GP-CAS;  2 - GP-ABA;  3 - SP-CAS;  4 - SP-ABA. 

• 

RKBNS(2) 

Parameter  for  Red  killing  Blue  nonsheltered  aircraft: 
1 - Red  GP  aircraft;  2 - Red  SP-ABA  aircraft. 

RKBS(2) 

Parameter  for  Red  killing  Blue  shelters: 

1 - Red  GP  aircraft;  2 - Red  SP-ABA  aircraft. 

• 

RPARK 

Number  of  Red  parking  areas  for  aircraft  on  each  Red 
airbase . 

RPASS(TYR) 

Number  of  passes  per  Red  ABA  sortie  by — 

1 - Red  GP-ABA  aircraft;  2 - Red  SP-ABA  aircraft. 

• 

RQWGT(2) 

Weights  for  Red  surviving  GP  aircraft  and/or  QRA 
(analogous  to  BQWFT( • ) ) . 

RSAMZB(TYBjMSB) 

Proportion  of  Blue  attack  sorties  by  type  and  mission 
destroyed  by  Red  ground-to-air  weapons. 

• 

RSWGT(MS) 

Weights  for  surviving  SP  Red  aircraft,  by  kind  of 
aircraft . 

r4al 

Overlap  factor  (between  0 and  1)  for  Blue  munitions  at 
Red  airbase. 

• 

R4AN1,R4AN2 

Lethal  area  covered  by  one  pass  of  a Blue  GP-  or  SP-ABA  ' 
aircraft  (resp.)  dropping  "anti-nonsheltered"  munitions 
against  nonsheltered  aircraft. 

• 

R4AS1,R4AS2 

Lethal  area  covered  by  one  pass  of  a Blue  GP-  or  SP-ABA 
aircraft  (resp . ) dropping  "anti-shelter"  munitions  against 
shelters. 

R4B 

Area  of  a typical  airbase  on  which  Red  aircraft  might  be 
located . 

• 

R4NS1,R4NS2 

A reduction  factor  applied  to  R4AN1  or  R4AN2  (resp.)  when 
"anti-nonsheltered"  munitions  are  dropped  on  shelters. 

R4SN1,R4SN2 

An  expansion  (or  reduction)  factor  applied  to  R4AS1  or 
R4AS2  (resp . ) when  "anti-shelter"  munitions  are  dropped 
on  nonsheltered  aircraft. 

• 

A -6 


Variable  Name 


Definition 


S0RRB1(TYB,MSB) 

S0RRB2(TYB,MSB) 

S0RRR1(TYR,MSR) 

S0RRR2(TYR,MSR) 

XNBM 

XNBAB 

XNRAA 


Sortie  rates  for  Blue  before  day  IDBSRC,  by  type  of  aircraft 
1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA;  3 - INT. 

Sortie  rates  for  Blue  on  and  after  day  IDBSRC,  by  type  of 
aircraft : 

1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA;  3 - INT. 


Sortie  rates  for  Red  before  day  IDRSRC,  by  type  of  aircraft: 
1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA;  3 - INT. 

Sortie  rates  for  Red  on  and  after  day  IDRSRC,  by  type  of 
aircraft : 

1 - GP;  2 - SP 
and  by  mission: 

1 - CAS;  2 - ABA;  3 - INT. 

Number  of  notionalized  Blue  air-to-air  combat  regions  (on 
Blue  side  of  FEBA) . 

Number  of  notionalized  (identical)  Blue  airbases. 

Number  of  notionalized  Red  air-to-air  combat  regions  (on 
Red  side  of  FEBA) . 


XNRAB 


Number  of  notionalized  (identical)  Red  airbases. 


APPENDIX  B 


ALPHABETICAL  LISTING  AND  DEFIN 
COMPUTED  VARIABLES  OF  SUBROUT 


ITIONS  OF 
INE  CAM 


Variable  Name 


Definition 


ABQRA 

Actual  number  of  Blue  QRA  aircraft  (GP  aircraft  designated 
as  QRA) . 

ABQRAN 

Number  of  nonsheltered  Blue  QRA  aircraft. 

ABQRAS 

Number  of  sheltered  Blue  QRA  aircraft  (QRA  are  given 
priority  in  sheltering). 

ARQRA 

Actual  number  of  Red  QRA  aircraft  (GP  aircraft  designated 
as  QRA) . 

ARQRAN 

Number  of  nonsheltered  Red  QRA  aircraft. 

ARQRAS 

Number  of  sheltered  Red  QRA  aircraft. 

BA(TY,MS) 

Blue  aircraft  on  missions,  by  aircraft  type  (GP  or  SP) 
and  mission. 

BAAS 

Blue  GP  aircraft  assignable  to  missions. 

BAD(KBAjID) 

Blue  aircraft  destroyed  on  day  ID,  by  kind  of  Blue 
aircraft . 

BAF(ID) 

Blue  air  firepower  (i.e.,  successful  CAS  firepower) 
delivered  on  day  ID. 

BAFB(TYjMS) 

Blue  aircraft  that  fly  back  to  Blue  airbase,  by  aircraft 
type  and  mission. 

BAI(KBA,ID) 

Inventory  of  Blue  aircraft  at  beginning  of  day  ID,  by 
kind  of  Blue  aircraft. 

BAKAA(TY,MS) 

Blue  aircraft  killed  in  the  air-to-air  interaction,  by 
aircraft  type  and  mission. 

BAKNS 

Blue  nonsheltered  aircraft  destroyed. 

BARS 

Blue  sheltered  aircraft  destroyed. 

BAL(TYjMS) 

Blue  aircraft  lost  to  enemy  SAMs  (ground-to-air 
interaction),  by  aircraft  type  and  mission. 

BANAS 

Blue  GP  aircraft  not  assigned  to  missions. 

BANF(TY,MS) 

Blue  aircraft  not  flying  (i.e.,  staying  on  the  base): 
positive  only  if  the  sortie  rate  is  less  than  1.0. 

BATP 

Blue  attack  total  passes  (=PBABA(1)+PBABA(2) ) . 

Variable  Name 


Definition 


BATS 

Blue  attack  sorties  (CAS  and  ABA). 

BATS1 

Blue  attack  sorties  per  notionalized  air-to-air  combat 
region  on  Red  side  of  FEBA  (BATS1=BATS/XNRAA) . 

BAVUL(KBA) 

Blue  aircraft  vulnerable  to  enemy  ABA,  by  kind  of  Blue 
aircraft  (not  including  QRA). 

BAVULT 

Total  Blue  aircraft  vulnerable  to  enemy  ABA  (not  including 
QRA). 

BDD(KBD,ID) 

Blue  divisions  destroyed  on  day  ID,  by  kind  of  Blue 
division. 

BDI(KBD,ID) 

Blue  division  inventory  at  beginning  of  day  ID,  by  kind 
of  Blue  division. 

BP(ID) 

Blue  total  firepower  (ground  plus  successful  CAS) 
delivered  on  day  ID. 

BFRAC 

Fraction  of  Blue  aircraft  on  base. 

BGF(ID) 

Blue  ground  firepower  delivered  on  day  ID. 

BITS 

Blue  intercept  sorties. 

BITS1 

Blue  intercept  sorties  per  notionalized  air-to-air  combat 
region  on  Blue  side  of  FEBA  (BITSI=BI15/XNBAA) . 

BPENG(TYB) 

Proportion  of  Blue  intercept  sorties  engaged  that  are  of 
type  TYB: 

1 - GP;  2 - SP. 

BPOPNS(KBA) 

Population  of  nonsheltered  Blue  aircraft. 

BPOPS(KBA) 

Population  of  sheltered  Blue  aircraft  (i.e.,  number  of 
aircraft),  by  kind  of  Blue  aircraft  (including  QRA). 

BS(TY,MS) 

Blue  sorties,  by  aircraft  type  and  mission. 

BSENG(TYB,MSB) 

Blue  attack  sorties  engaged  by  Red  interceptors,  by  type 
of  Blue  aircraft  and  attack  mission  only: 

1 - CAS;  2 - ABA. 

BSFB(TY,MS) 

Blue  sorties  that  fly  back  to  Blue  airbase  and  do  not 
attempt  to  deliver  ordnance  (BSFB(TY,3)=0;  the  whole 
array  is  zero  if  the  first  air-to-air  attrition  method 
is  used) . 

Variable  Name 


Definition 


BSHEL 

Number  of  Blue  shelters  (recomputed  each  day) . 

BSHEL1 

Blue  shelters  remaining  after  QRA  aircraft  are  sheltered 
(zero  if  ABQRAN  > 0.0). 

BSHELK(ID) 

Blue  shelters  destroyed  on  day  ID. 

BSKM(TYB,MSB) 

Blue  sorties  killed  in  the  air-to-air  interactions,  by 
aircraft  type  and  mission. 

BSL(TYjMS) 

Blue  sorties  lost  to  enemy  SAMs  (ground-to-air  inter- 
action) , by  aircraft  type  and  mission. 

BTOT 

Total  Blue  aircraft  vulnerable  to  ABA  (=BT0TS+BT0TNS) . 

BTOTNS 

Total  nonsheltered  Blue  aircraft  (=  £ BPOPNS(KBA) ) . 

KBA 

BTOTS 

Total  sheltered  Blue  aircraft  (=  £ BPOPS(KBA)). 

KBA 

B4AN 

Average  area  covered  by  a Red  "anti-nonsheltered"  munition. 

b4as 

Average  area  covered  by  a Red  "anti-shelter"  munition. 

b4ns 

Average  reduction  factor  when  Red  "anti-nonsheltered" 
munitions  are  used  against  shelters. 

B4SN 

Average  expansion  factor  when  Red  "anti-shelter"  munitions 
are  used  against  nonsheltered  aircraft. 

CBAF(ID) 

Cumulative  Blue  CAS  firepower  delivered  to  date. 

CBP(ID) 

Cumulative  Blue  ground  plus  CAS  firepower  delivered  to 
date. 

CRAF(ID) 

Cumulative  Red  CAS  firepower  delivered  to  date. 

CRF(ID) 

Cumulative  Red  ground  plus  CAS  firepower  delivered  to 
date. 

DFEBA 

FEBA  advance. 

DFOBA 

Negative  of  FEBA  advance. 

PEBA(ID) 

FEBA  position  at  end  of  day  ID. 

FRBR 

Force  ratio  of  Blue  to  Red  firepower. 

Variable  Name 


Definition 


FRRB 

Force  ratio  of  Red  to  Blue  firepower  (=1/FRBR) . 

IBARI 

Check  variable  for  the  Blue  attacker-Red  interceptor 
interaction. 

IBIRA 

Check  variable  (the  Blue  interceptor-Red  attacker 
attritions  are  zero  if  either  side  has  zero  sorties; 
IBIRA  then  is  set  to  1,  and  the  attrition  computation  is 
bypassed) . 

IDL 

First  day  for  which  assessment  is  to  be  computed  in  that 
particular  call  of  CAM. 

IDU 

Last  day  for  which  assessment  is  to  be  computed  in  that 
particular  call  of  CAM* 

IPD 

Period  of  war. 

NTN 

Number  of  iterations  of  Newton's  method  to  find  optimal  Q 

PBABA(TYB) 

Blue  ABA  aircraft  passes  by  type  of  ABA  aircraft: 
1 - GP;  2 - SP. 

PBDID 

Percent  Blue  divisions  destroyed. 

PRABA(TYR) 

Red  ABA  aircraft  passes  by  type  of  ABA  aircraft: 
1 - GP;  2 - SP. 

PRDID 

Percent  of  Red  divisions  destroyed. 

PR0D1 , PROD2 , 
XI,  X15,  X2, 
DENOM 

Working  variables  for  computing  attritions  in  second 
method  (air-to-air) . 

PROPB(MS,IPD) 

Proportion  of  Blue  GP  aircraft  assigned  to  mission  MS 
in  period  IPD  (in  two-period  war,  IPD  is  2 for  the  first 
period  and  3 for  the  second). 

PROPR ( MS , IPD ) 

Proportion  of  Red  GP  aircraft  assigned  to  mission  MS 
in  period  IPD. 

Q 

Proportion  of  Blue  passes  to  attack  Red  shelters — 
computed  if  IBABA=2  or  4.  Or  proportion  of  Red  passes  to 
attack  Blue  shelters  (the  remainder  attack  Blue 
nonsheltered  aircraft) — computed  if  IRABA=2  or  4. 

RA(TY,MS) 

Red  aircraft  on  missions,  by  aircraft  type  and  mission. 

RAAS 

Red  GP  aircraft  assignable  to  missions. 

Variable  Name 


Definition 


RAD(KRA,ID) 

Red  aircraft  destroyed  on  day  ID,  by  kind  of  Red  aircraft 

RAF (ID) 

Red  air  firepower  delivered  on  day  ID. 

RAFB(TY,MS) 

Red  aircraft  that  fly  back  to  Red  airbase,  by  aircraft 
type  and  mission. 

RAI(KRA,ID) 

Red  aircraft  inventory  at  beginning  of  day  ID,  by  kind  of 
Red  aircraft. 

RAKAA(TY,MS) 

Red  aircraft  killed  in  the  air-to-air  interaction,  by 
aircraft  type  and  mission. 

RAKNS 

Red  nonsheltered  aircraft  destroyed. 

RAKS 

Red  sheltered  aircraft  destroyed. 

RAL(TYjMS) 

Red  aircraft  lost  to  enemy  SAMs  (ground-to-air  inter- 
action), by  aircraft  type  and  mission. 

RANAS 

Red  GP  aircraft  not  assigned  to  missions. 

RANP(TYjMS) 

Red  aircraft  not  flying  (i.e.,  staying  on  the  base;  this 
is  positive  only  if  the  sortie  rate  is  less  than  1.0). 

RATP 

Red  attack  total  passes  (=PRABA(1)+PRABA(2) ) . 

RATS 

Red  attack  sorties  (CAS  and  ABA) . 

RATS1 

Red  attack  sorties  per  notionalized  air-to-air  combat 
region  on  Blue  side  of  FEBA  (RATS1=RATS/XNBAA) . 

RAVUL(KBA) 

Red  aircraft  vulnerable  to  enemy  ABA,  by  kind  of  Red 
aircraft  (not  including  QRA). 

RAVULT 

Total  Red  aircraft  vulnerable  to  ABA  that  can  be 
sheltered  (not  including  QRA) . 

RDD(KRD,ID) 

Red  divisions  destroyed  on  day  ID,  by  kind  of  Red 
division. 

RDI(KRD,ID) 

Red  division  inventory  at  beginning  of  day  ID,  by  kind  of 
Red  division. 

RF(ID) 

Red  total  firepower  delivered  on  day  ID. 

RFRAC 

Fraction  of  Red  aircraft  on  base. 

RGF(ID) 

Red  ground  firepower  delivered  on  day  ID. 

Variable  Name 


Definition 


RITS 

Red  intercept  sorties. 

RITS1 

Red  intercept  sorties  per  notionalized  air-to-air  combat 
region  on  Red  side  of  FEBA  (RITS1=RITS/XNRAA) . 

RPENG(TYR) 

Proportion  of  Red  intercept  sorties  engaged  that  are  of 
type  TYR. 

• 

RPOPNS(KRA) 

Population  of  nonsheltered  Red  aircraft,  by  kind  of  Red 
aircraft . 

RPOPS(KRA) 

Population  of  sheltered  Red  aircraft,  by  kind  of  Red 
aircraft . 

• 

RS(TY,MS) 

Red  sorties,  by  aircraft  type  and  mission. 

RSENG(TYR,MSR) 

Red  attack  sorties  engaged  by  Blue  interceptors,  by  type 
of  Red  aircraft  and  attack  mission  only: 

1 - CAS;  2 - ABA. 

• 

RSFB(TY,MS) 

Red  sorties  that  fly  back  to  Red  airbase  and  do  not 
attempt  to  deliver  ordnance  (RSKB(TY,3)=0;  the  whole 
array  is  zero  if  the  first  air-to-air  attrition  method  is 
used) . 

• 

RSHEL 

Number  of  Red  shelters  (recomputed  each  day). 

RSHEL1 

Number  of  Red  shelters  remaining  after  QRA  aircraft  are 
sheltered. 

RSHELK(ID) 

Red  shelters  destroyed  on  day  3D. 

RSKAA(TYR,MSR) 

Red  sorties  killed  in  the  air-to-air  interactions,  by 
aircraft  type  and  mission. 

RSL(TY,MS) 

Red  sorties  lost  to  enemy  SAMs  (ground-to-air  interaction) , 
by  aircraft  type  and  mission. 

• 

RTOT 

Total  Red  aircraft  vulnerable  to  ABA  ( =RTOTS+RTOTNS ) . 

RTOTNS 

Total  nonsheltered  Red  aircraft  (=  \ RPOPNS(KRA) ) . 

KRA 

• 

RTOTS 

Total  sheltered  Red  aircraft  (=  l RPOPS(KRA) ) . 

KRA 

B-6 


Variable  Name 


Definition 


r4an 

Average  area  covered  by  a Blue  "anti-nonsheltered" 
munition. 

r4as 

Average  area  covered  by  a Blue  "anti-shelter”  munition. 

r4ns 

Average  reduction  factor  when  Blue  "anti-nonsheltered" 
munitions  are  used  against  shelters. 

r4sn 

Average  expansion  factor  when  Blue  "anti-shelter" 
munitions  are  used  against  nonsheltered  aircraft. 

SHELB(ID) 

Number  of  Blue  shelters  at  beginning  of  day  ID. 

SHELR(ID) 

Number  of  Red  shelters  at  beginning  of  day  ID. 

SORRB(TYjMS) 

Sortie  rates  for  Blue,  by  aircraft  type  and  mission. 

SORRR(TY,MS) 

Sortie  rates  for  Red,  by  aircraft  type  and  mission. 

SRB 

Working  variable,  equal  to  the  maximum  of  1.0  and  the 
appropriate  Blue  sortie  rate. 

SRR 

Working  variable,  equal  to  the  maximum  of  1.0  and  the 
appropriate  Red  sortie  rate. 

SUM,  PROD,  XI, 
X15 

Working  variables  for  computing  attritions  (air-to-air). 

SUMB,  SUMR 

Working  variables  for  computing  BANAS  and  RANAS. 

VBADRI(INDB) 

Average  detection  parameter  for  Blue  attackers,  by  kind 
of  attacker,  against  Red  interceptors  in  the  air-to-air 
interaction. 

VBDRNS 

Average  detection  parameter  for  Blue  against  Red 
nonsheltered  aircraft. 

VBDRS 

Average  detection  parameter  for  Blue  against  Red  shelters. 

VBIDRA(TYB) 

Average  detection  parameter  for  Blue  interceptors,  by 
type,  against  Red  attackers  in  the  air-to-air  interaction. 

VBKRNS 

Average  kill  parameter  for  Blue  against  Red  nonsheltered 
aircraft . 

VBKRS 

Average  kill  parameter  for  Blue  against  Red  shelters. 

Variable  Name 


Definition 


VRADBI(INDR) 

Average  detection  parameter  for  Red  attackers,  by  kind  of 
attacker,  against  Blue  interceptors  in  the  air-to-air 
interaction. 

VRDBNS 

Average  detection  parameters  for  Red  against  Blue 
nonsheltered  aircraft. 

VRDBS 

Average  detection  parameter  for  Red  against  Blue  shelters. 

VRIDBA(TYR) 

Average  detection  parameter  for  Red  interceptors,  by 
type,  against  Blue  attackers  in  the  air-to-air  interaction. 

VRKBNS 

Average  kill  parameters  for  Red  against  Blue  nonsheltered 
aircraft . 

VRKBS 

Average  kill  parameter  for  Red  against  Blue  shelters. 

XNS 

Proportion  of  nonsheltered  aircraft  killed  in  the  ABA 
interaction — used  for  apportioning  destroyed  aircraft  by 
kind  of  aircraft  (redefined  for  Red). 

XS 

Indicator  for  sheltering  of  Red  SP-ABA  aircraft: 

0.0  - do  not  shelter;  1.0  - shelter  (XS=1-IR3SH) — 
also  used  later  in  routine  as  proportion  of  sheltered 
aircraft  killed  in  the  ABA  interaction — used  for 
apportioning  destroyed  aircraft  by  kind  of  aircraft 
(redefined  for  Red) . 

